APPENDIX A 
Source code implementing generic effects in a web pag 
using dynamic HTML: snap enclosures on links. 



frmBrowser.fmi 

VERSION 5.00 

Object - ,, {6B7E6392-850A-101B-AFC0-4210102A8DA7)Jtl.2HQ" . 
"COMCTL32.0CX" 

Object * »{EAB22ACO-30C1~11CF-A7£B-OOOOC05BABOB}H1.1HO»; 
"SHDOCVW.DLL" 
Begin VB.Form frmBrowser 
ClientHeight - 7632 
ClientLeft * 1548 

ClientTop ' « 1332 

ClientWidth « 9120 
LlnkTopic » * For ml " 

ScaleHeight » 7632 

ScaleWidth » 9120 

ShowInTaskbar « 0 • False 
Begin VB. Timer timTimer 

Enabled « 0 'False 

Interval « s 

Lett » 7320 

Top * 1800 

Bnd : 

Begin SHDocVwCtl .WebBrowser brwWebBrowser 
Height * 6864 

Left » 12 

Tab index » 0 

Top » 25 

Width B 9684 

ExtentX » 17082 

ExtentY. * 12107 

viewMode «* 1 

Offline * 0 

Silent - 0 

RegieterAeBrowser- 0 
RegisterAsDropTarget- 1 
AutoAr range - -1 'True 
WoClientEdge » 0 'False 
AlignLeft « 0 'False 

ViewID . "{0057D0EO-3573-11CF-AE69- 

080O2B2B1262} 1 * 

Location m '«« 

End 

Begin VB , PictureBox picAddress 

Align » 1 'Align Top 

BorderStyle « 0 'None 

Height » 7B0 

Left » 0 

ScaleHeight « 780 

ScaleWidth « 9120 

Tab index » 1 

TabStop » 0 1 False 

Top » 0 

width - 9120 

End 

Begin Comet iLib. ImageLi at imllcons 
Left a 70B0 

Top m 1000 

_ExtentX =8 04 

_ExtentY m 804 

BackColor « -2147483643 

ImageWidth « 24 

IreageHeight « 24 
MaakColor » 12632256 

^Version » 327682 

BeginProperty Images {0713E8C2-850A- 101B-AFC0 - 
4210102A8DA7) 

NumList Images * 8 

BeginProperty Listlmagel {0713B8C3- 850A-101B-AFCO- 
4210102A8DA7} 

Picture * "frmBrowser. frx" t 0000 

Key = " « 

End Property 

BeginProperty Listlmage2 {0713E8C3-B50A-101B-AFCO- 

4210102A8DA7) 

Picture » "frtnBrowser. frx" 1 0712 

Key » « " 

EndProperty 

BeginProperty Listlmage3 [0713EBC3-850A-101B-AFCQ- 
4210102A8DA7} 

Picture - "frmBrowser. frx" 1 QE24 

Key « » 11 

EndProperty 

BeginProperty Listlraage4 {0713E8C3-850A-101B-AFCO- 
42101O2A8DA7} 

Picture . »£ rtoBrowser . frx" , 1536 

Key m » 

EndProperty 

BeginProperty ListlmageS (0713E8C3 -850A 101B AFC0- 
4210102A8DA7} 

Picture = "frmBrowser. frx" :1C48 

Key t. »« 

EndProperty 
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BeginProperty Listlmage6 {0713E8C3-85OA-101B-AFC0- 
4210102A8DA7} 

Picture - «f rmBrowser . £ rx" 1 235A 

Key « « " 

EndProperty 

BeginProperty Listlmage? (0713E8C3- 850A-101B-AFC0- 
4210102A8DA7} 

Picture » "frmBrowser . frx" x2A6C 

Key . « » 

EndProperty 

BeginProperty ListlmageB { 0713E8C3- 850A-101B-AFCO- 
4210102ABDA7} 

Picture « "frmBrowser. £. rx" t 2EC2 

Key » » » 

EndProperty 
EndProperty 

End 

End 

Attribute VB_Name « "frmBrowser" 
Attribute VB~GlobalNameSpace « False 
Attribute VB_Creatable - False 
Attribute VB~PredeclaredId « True 
Attribute VB_Exposed ■ False 

Public WithEvents tEDocEvents As HTMLDocument 
Attribute IEDocEvents. VBJVarHelpID « -l 
Public StartingAddress As String 
Dim mbDontNavigateNow As Boolean 
Dim navigating As Boolean 



*** Form Loading and Unloading Event Handlers 
i*********t**********«.»******»*t*(i***<i*****t**tt*****.#» 
Private Sub Form_Load() 
On Error Resume Next 

1 Play with the address line and beginning navigation 

StartingAddress « 
"f lie t //C t \COMDEX\FTWDemo\yahoo\yahoo.html" 

If Len (StartingAddress) > 0 Then 

• Try to navigate to the starting address 
timTimer. Enabled * True 
brwWebBrowser. Navigate StartingAddress 

End If 

' Get us visibly ready 
We .Show 

tbToolBar .Refresh 
Form_Resize 

1 Set up Serra 
Dim result As Long 

result « Serra - Crea teSerra (App.hlnstance, 
f rmB rowser . hWnd ) 

If (result - o) Then 
Unload frmBrowser 

End If 
End Sub 

Private Sub Form_Un load (Cancel As Integer) 

Dim result As Long 

result « Serra. DestroySerraO 
End Sub 

i»*»********»**t******************t**********«*t********* 

•** Web Browser Events 
• ******* 

Private Sub brwWebBrowaer_BeforeNavigate2 (ByVal pDiap As 
Object, URL As Variant, Flags As Variant, TargetFrameName As 
Variant, PostData As Variant, Headers As Variant, Cancel As 
Boolean) 

On Error Resume Next 

Set IBDocEvents « Nothing 

Call Serra. StopTouching 

navigating - True 
End Sub 

Private Sub brwWebBrowser_NavigateComplete2 (ByVal pDisp As 
Object, URL As Variant) 

1 Play with the address line 

Dim i As Integer 

Dim bFound As Boolean 

Me. Caption = brwWebBrowser. LocatlonName 
• Bind the document 

Set lEBocEvents « brwWebBrowser .Document 

navigating «. False 
End Sub 

Private Sub brwWebBrowser_DownloadComplete 0 
On Error Resume Next 

Me. Caption - brwWebBrowser .LocatlonName 
End Sub 



•** JEDocEvents, etc. Handlers 
» ft******************* ******************* 

1 Private Sub lEDocEvents_onmousedown ( ) 
• If brwWebBrowser. Document .pa rent Window, event. Button = 4 
Then 

1 Call Serra. StopTouching 

' Call Serra. Star tPushScrolling 



************ 
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• End IE 

• End Sub 

•Private Sub FormJIouseup (Button As Integer, shift As 
Integer, X As Single, Y As Single) 
• Call Serra. StopPuahScrolling 
Call Serxa.StartTouching 
'End Sub 

'Private Sub IEDocEvents_pnmouseup () 

• Call Serra.StopPuahScrolling 
1 Call Serra. StartTouching 
•End Sub 

Private Sub IEDocBvent8_onmouaeaver ( ) 

1 The meat of it all I I I 

Dim result As Long 

If (Not navigating) Then 

result * Ser ra, TryTouching (ByVal 
brwWehBrowser .Document . par entWindow . event) 

End If 
End Sub 

•** Address, Toolbar, and Form Event Handlers 

it******************************************************* 

Private Sub Form_Resize{) 

brwWebBrowser. Width » Me.ScaleWidth 

brwWebarowser .Height » He. ScaleHeight 
End Sub 

Private Sub timTlmer__Timer {) 

If brwWebBrov/ser .Busy - False Then 
tiiuTimer .Enabled « False 
Me. Caption » brwWebBroweer .LocationName 

Else 

Me. Caption « "Working..." 
End If 
End Sub 



Serra. odl 



i 

UUid<&19BD0E0-578B-lldi-A8 68-0060083A2742) , 
lcid (0) , 

helpstring { "FeelTheWeb DLL" } , 

version (0.9) 

i 

library FeelTheWeb 

fldecine DLLAPI ' stdcall 

Import lib ( "mshtml , dll") ; 

t 

uuid (a 19BD0El-57BE-lldl-A868 -006008 3A2742) , 
helpBtring( "Basic Serra Functions"), 
dlluame ("FeelTheWeb.dll") 
I 

module Serra { 

{ 

entry ("CreateSerra") , 

helpstring t "Creates a connection to the 
Serxa device. Requires the application's instance handle 
and window handle. Returns 0 if unsuccessf ul . ••) , 

} 

long DLLAPI CreateSerra ( long theHiUST. 

long theHWND ); 

t 

entry ("DestroySerra") , 

helpstring ("Destroys a connection to the 
Serra device. Returns 0 if unsuccessful."), 
) 

long DLLAPI DestroySerra <) ; 
t 

entry ("TryTouching") , 

helpstring ("Checks if the given event 
touches a touchable element, and if so creates a Serra 
enclosure for it."), 

) 

long DLLAPI TryTouching ( [in} 
IHTMLEventObj* theEventPtr ); 



touch elements . "J , 



touch elements.") , 



entry ("StartTouching") , 

helpstring ("Enables Serra' s ability to 

1 

void DLLAPI StartTouching () ; 
t 

e nt ry ( " S topTouch i ng " ) , 

helpstring ("Disables Serra 's ability to 



void DLLAPI StopTouching () ; 
( 

entry ("StartPushScrolling") , 
helpstring ("Enables the spring effect 
tor push scrolling."), 
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void DLLAPI StartPushScrollingO; 
t 

entry! "StopPuahScrolling") , 
helpstring («Disables the spring effect 
for push scrolling."), 
] 

void DLLAPI StopPushScrollingO / 



Serra.def 

LIBRARY FeelTheWeb 



CreateSerra 

DestroySerra 

TryTouching 

StartTouching 

StopTouching 

StartPushScrolling 

StOpPushScrolling 



Wrapper.h 



/***************** + 1 ************ k ************************** 

* FeelTheWeb.dll 

* (c) 1997 immersion Corporation 
* 

* FILE 

* Wrapper.h 

* DESCRlFrlON 

* C++ functions for the FeelTheWeb Viaual Basic program. 

* These are placed in a DLL. 

* It provides access to MSHTML and the Serra API . 



Sifndef WRAPPER_H 
^define ^WRAPPER jT 
8 include"" StdAfx.h" 
fl include " mshtml. h" 
S include "vbutil.h" 

typedef enum 

teCantTouch « o, 
teAnchor, 
// teArea,? 
teButton, 
telnputButton, 
teinputCheckBox, 
telnput Image, 
telnputText, 
telnputRadio, 
// teMap,7 
teTextArea 
} TouchElem; 

// For DLL (public) 

long DLLAPI CreateSerra ( long theHINST, long theHWND ); 
long DLIjAPI DestroySerra () ; 

long DLLAPI TryTouching ( IHTMLEventObj * theEventPtr J? 

void DLLAPI StartTouching () ? 
void DLLAPI StopTouching 0 ; 

void DLLAPI StartPushScrollingO ; 
void DLLAPI StopPushScrollingO; 

// Not For DLL (private) 

void _DoEncloeure ( IHTMLEventObj* theEventPtr, IHTMLElemenfc* 
theElera ) t 

TouchElem _TryTouchingHelper I IHTMLElement* theBl, 
IHTMLEventObj + theEventPtr ) ; 

TouchSlem _Check If Touchable (IHTMLElement * theBl) r 
Hendif WRAPPER H 



Wrapper, cpp 

/***ki r *************************** ************************** 

* FeelTheWeb.dll 

* (c) 1997 immersion Corporation 

* FILE 

* Wrapper. cpp 

* DESCRIPTION 

* C++ functions Ear the FeelTheWeb Viaual Basic program. 

* These are placed in a DLL. 

* It provides access to MSHTML and the Serra API . 
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1/ include "StdAfx.h" 

II include "comdef.h" 

II include «stdio.h> 

B include " wrapper. h" 

# include "PorceSerraMouse-U" 

^include "ForceSpring.h , « 

ffinclude "ForceEncloBure.h" 

(I include "ForcePeriodic.h" 

/***»•* **************** ******** « *************************** y 
/* GLOBAL VARIABLES*/ 

/********************** ******** ************** ********** ****/ 
CForceSerraMouae* gSerraMouse « NULL; 
CForcePeriodic*gEnclosureSnap » NULL; 
CForceEnclosure*gAnchorEnclosure « NULL; 
CForceSpring*gPushSpring » NULL; 

tfifdef DI RECTI NPUT_VERS ION 

const GUID guidSquare « GUID Square; 
Uelse ~ 

const GUID guidSquare *. GUIDSerra Square; 

ttendif 

/* Force Effect Parameters */ 
// Pop Effect 

DWORD PDIRX-O, PDIRY-Q, PDUR-100, PMAG-20O0, PPBR-100; 

// Enclosure 

DWORD ESTIFFH-8000, ESTIFFV-8000, EWWH-8, EWWV=B, 
ESATH»lO00O, ESATV-10000; 
// Spring 

DWORD SSTIFF-8000, SSAT-10000. SDEAD-5; 
// Use pop7 
DWORD USEPOP - 1; 

/* PUBLIC FUNCTIONS */ 

/************************ ******* t*************************^ 
long DLLAPI CreateSerra< long theHlNST, long theHWND ) 



&ESTIFFV, &EWWH 



&SDEAD > 



RBCT encRect - { 0, o, 100, 100 }; 
BOOL success; 

// Try to get parameters from FTWfx.dat 
FILE *fp m fopen ( "FTWfx.dat M r M ) ; 
if (fp) { 

// Pop Effect 

fscanf (fp, »%d %d %d *d %d\ &PDIRX, 
&PDUR, &PMAQ; &PPER ); 

// Enclosure 

fscanf (fp, "%d %d %d %d *d %d", &ESTIFE 
&EWWV, GESATH, &ESATV >; 
// Spring 

fscanf (fp, "%d %d %d», &SSTIFF, &SSAT, 



} 



// Use snap? 
fscanf (fp, • , %d" 
// Close it. . . 
f close ( f p) ; 



&USEPOP ) ; 



// Initialize the SerraMouae 
gSerraMouse « new CForceSerraMouae; 

if { i gSerraMouse ) goto CS__Err; 
success » gSerraMouae->Initialize(~(HINSTANCE)theHINST, 
(HWHD) theHWND ); 

if ( i success ) goto CSJ3rr; 

// Create the effects 

gEnclosureSnap « new CForcePeriodic? 
if ( I gEnclosureSnap ) goto CS_Err; 
success = gEnclosureSnap-:* Initial ize< 

gSerraMouse, 

guidSquare, 

CPoint(PDrRX,PDIRXJ , // Direction 
POUR, // Duration (ms) 

PMAG, // Magnitude 

PPER // Period (ms) 

); 

if ( I success ) goto CS_£rr ; 

gAnchorEnclosure - new CForceEnclosure; 

if ( t gAnchorEnclosure ) goto CS_Err, 

success « gAnchorEnclosure- > Initialize ( 

gSerraMouse, // CForceDevice* pDevioe, 
&encRect, // LPCRECT pRectOutside, 
ESTIFFH, // LONG lHorizStif f ness, 
ESTIFFV, // LONG IVertSti f f ness, 
BWWH, // DWORD dwHorizWallWidth, 

EWWV, // DWORD dwVertWallWidth, 

ESATJI, // DWORD dwHorizSaturation, 
ESATV, // DWORD dwVertSaturation, 
SERRA FSTIFF OUTBOUNDANYWALL , 

// DWORD dwstif fnessMask, 

oxo, // DWORD dwclippingMask, 

NULL // CForceCondition*pInsideCondition 

) ; 

if ( I success > goto CS_Err; 

gPushSpring * new CForceSpring; 
if ( ! gPushSpring ) goto CSJSrr; 
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CS Errt 



} 



success - gPushSpring->Initialize{ 
gSerraMouse, 
SSTIPF, 
SSAT, 
SDEAD, 

FORCE_EFFECT_AXIS BOTH, 

FORC B_S PR I NG_D E FAULT_C EHT B R_ PO I NT 

) ; 

if ( ! success ) goto CS_Err; 
return 1; 



// We had problems, 
DestroySerra {) ; 
return 0; 



clean up and leave. 



long DLLAPI DestroySerra ( ) 

if ( gSerraMouse ) { delete gSerraMouse; 
gSerraMouse » NULL; ) 

if ( gEnclosureSnap) { gEnclosureSnap- >Stop< ) ; 
delete gEnclosureSnap; gEnclosureSnap » NULL; } 

if ( gAnchorEnclosure ) { gAnchor En closure - 
>Stop() ; delete gAnchorEnclosure; gAnchorEnclosure- NULL; 

if ( gPushSpring ) { gPushSpring- >Stop() ; 
delete gPushSpring; gPushSpring „ huh,, \ 

return 1; ' 1 

) 



long DLLAPI TryTouching ( IHTMLEventObj* theEventPtr > 



long 

iHTMiiEieroent* 
TouchElem 



result « 0; 
PBI; 

be; 



// Get the srcElement 
theEventPtr ->get_srcElement { &pEl ) ; 
if ( pEl ) 



{ 



// Check if its touchable 
te » JTryTouchingHelper ( pEl, theEventPtr ) ; 
if ( te !« teCantTouch ) 
{ 

//Create enclosure for element... 
JDoEnclosure ( theEventPtr, pEl > ? 
result ■ h 

} 

pEl->Release{) ; 
return result; 

void DLLAPI StartTouching (} 

^ if ( gAnchorEnclosure ) gAnchorEnclosure- >S t art () ; 



void DLLAPI StopTouchingO 

if ( gAnchorEnclosure ) gAnchorEnclosure ->Stop () / 
^ if ( gEnclosureSnap } gEnclosureSnap->Stop () ; 



void DLLAPI StartPushScrollingO 



if ( gPushSpring ) gPushSpring- >start 0 ; 



void DLLAPI StopPushScrollingO 



if { gPuBhSpring ) gPushSpring- >Stop() ; 



/******************* ****** fr*************************^^^ 

/* PRIVATE FUNCTIONS */ 

TouchElem JTryTouchingHelper ( IHTMLElement * theEl, 
IHTMLEventObj* theEventPtr ) 



IHTMLElement* 
TouchElem 



PEl; 
te; 



// Our base case 

if ( theEl « NULL ) return teCantTouch; 

// Is this guy touchable? 
te m _Check If Touchable { theEl ); 
if < t e != teCantTouch ) 



return te; 



{ 
} 

//not touchable, try his parent! (if he has one) 
theEl- >get_parentElement ( 6pEl ); 
if ( pEl !» NULL ) 
{ 
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theEventPtr ); 



} 



te o JTryTouchingHelper ( pBl, 

pEl->Release{> ; 
return te; 



return teCantTouch; 



/* _DoEnclosure 

* Input i IHTMLBventObj*. iHTMLElement* 

* returns i void 

* Given an event object and an element, creates an 
enclosure 

* for that element. The event object is for ascertaining 
the screen coordinates of the element. 

*/ 

void _DoEnclosure { iHTMLEventObj* tbeEvent, IHTMLElement* 
theElem ) 



RECT 
long 



terup; 



// Process left 

theElem- >get_of faetLeft ( Mr. left) ); 
theEvent->get_screenX( &temp ); r.left temp; 
theEvent->get_o£fsetX< &temp ) ; r.left -» temp; 

// Process top 

theElem- >get_offsetTop< R(r.top) ); 

theBvent->get_screenY( fitemp ),- r.top +=. temp; 

theEvent->get_offsetY ( fctemp ) ; r.top - = temp; 

// ProceaB right and bottom 
theElem->get_o££setWidth{ Mr. right) ) f 
r. right +» r.left; 

theElem- >get_of f setileight ( £(r. bottom) ) 
r. bottom +» r.top; 

// Calculate wall widths and heights 
DWORD hww i (r. right -r.left +l}/2; 
DWORD vww «. ( r. bottom- r.top+l)/2,- 
if ( hww < EWWH ) 
hww--; 

else 

hww - EWWH; 
if ( vww < EWWV > 
VWW- - ; 

else 

vww * EWWV; 

// Make the enclosure 
if (gAnchorEn closure) 
{ 

gAnchorEnclOBure->ChangeParameters{ 
&r, 

FOHC B_ BFFECT_OONT_CH ANGE , 
FORCE~EFFE CT_DONT_CH ANGE , 
hww, 
vww, 

F0RCEJ3FFECT JX>NT_CHANGE , 
PORCE_EFFECT_DONT_CHANGE , 
FORCE_BFFECT_DONT_CH ANGE , 
FORCE_EFFECT_DONT_CH ANGE , 
(CForceEffect*) 

FORCE EFFECTJ30NT_CHANGE 

); 

gAnchorBnclosure->Start {) ; 
if ( USEPOP ) 



{ 



gEnclosureSnap->startO ; 
gEnclosureSnap->Stop () ; 



TouchElem _CheckI£Touchable< IHTMLElement * theEl) 



IHTMLElement* 



pUnk; 



// 1b it an Anchor? 

theEl ->Query Interface ( IID^lHTMLAnchorElement, 

(LPVOIDM&pUnk ); 

if ( pUnk ) ( pUnk->Releaee{) ; return teAnchor; 



// teArea, ? 
// teMap,? 



// Is it a Text Area? 

theEl- >QueryInter£ace( IID_IHTMLTextAreaEleinent, 
(LPVOID*) A.pUnk J ; 

if < pUnk ) { pUnk->Release {} ; return 
teTextArea ; ) 

// Is it a Button? 

theEl->QueryInter£ace ( IID_IHTMLButton£lement, 
(LPVOID* J tpUnk >; 

^ if ( pUnk ) { pUnk->Release O return teButton,- 

// Is it an Inpuc Buccon? 
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theEl- >Query Interface ( 
IID_IHTMI«lnputButtonElernent, (LPVOID*) &pUnk ); 

if ( punk ) { pUnk->Release{> return 
telnputButtcm; } 

// la it an Input Check Box? 
// theEl ->Querylnter£ace{ 

HD_IHTMLlnputCheckBoxElement, (LPVOID*) tpUnk )• 
// if ( P"nk > { pUnk->Release{) ; return 

telnputCheckBox; } 

// Is it an Input Image? 
// theEl->QueryInter£ace< IID^IHTMLInputlmageElement . 

(LPVOID*) fcpunk ) ; 3 C ' 

// if < PUnk ) { pUnk->Release{)/ return 

te Input Image; } 

// Is it an Input Text? 

theEl- >Querylnterf ace { I ID IHTMLInputText Element 
{LPVOID* ) SpUnk ); ~ * 

if ( pUnk ) { pUnk->Re leased ? return 
telnputText; ) 

// Is it a Input Radio Button? 

theEl - >Query Interface ( 
IID_iHTHLOptionButtonElement, {LPVOID* ) &pUnk ); 

if ( punk ) { pUnk->Release() ,• return 
te Input Radio; } 

// None of the above I 
return teCantTouch; 



TouchChecLh 

// TouchCheck.hi interface for the CTouchcheck class. 

///////////////////////////////////////////////////////// 

U£ 

I defined! AFX JTOUCHCHECK H E8568F20 4BAC 11D1 A868 006OO83A2 

742__INCLUDED } *" 

ttdefine 

AFXjrOUCHCHECK_H__E3568F2 0 4BAC 11D1 A868 Q060083A2742 ItiCL 
UDED_ * " — 

Hit _MSC_VER >» 1000 
tfpragma once 

flendif // _MSC_VER >« 1000 

^include "StdAfx-h" 
^include <afxtempl.h> 
# include •'mshtml.h" 

typedef enum 
{ 

teCantTouch « 0, 
teAnchor, 
// teArea,? 
teButton, 
telnputButton, 
teinputCheckBox , 
te Input Image, 
telnputText, 
telnputRadio, 
// teMap,? 
teTextArea 
} TouchElem; 

typedef struct 
{ 

RECT frame; 
TouchElem kind; 

) TRECTj 



class CTouchcheck 
{ 

public* 

static long p_raTouchProtected; 

void SetScreenToClient ( long Xval r long rval ) t 
void SetScrollVaK long left, long top ); 
void SetClientRectt long left, long top, long 
right , long bottom ) ; 

int TryTouching( long mX, long mY ) ; 

void FillTouchables { IHTMLElementCol lection* 



theAll ); 



theEl) ,■ 



static TouchElem ChecklfTouchable { IHTMLElement* 

static void EnableTouching { int touching } ; 
static long IsTouchingEnabled { ) ; 
static long IsReadyToTouch ( ) ; 

CTouchcheck { ) ; 



virtual -CTouchCheck ( ) ; 

protected « 

CArray<TRECT, TRECT&> *p_mTouchableB; 
RECT p_mClientRect; 
int pjiVTouchableSize; 
int p_raCurrent Index ; 

static long p__mReadyToTouch ; // 
Internally Controlled 

static long pjmTouchingEnabled; 

// User Controlled 

int pjnClientRectSpecif ied; 

long p_mScrollLef t; 

long p_mScrollTop; 

long p_mScreenToClientX; 

long p_mScreenToClientY; 

private i 

void _GetTouchableFrame ( IHTMLElement* the&l, 
RECT* theRect) ; 

void _Trane f o rmPr ante Corner ( IHTMLElement* theEl, 
long* leEt, long* top ); 

static void _copyRect ( RECT* from, RECT* to ) ; 

void _copyRectWithOf f set ( RECT* from, RECT* to ); 

static int _outBide{ RECT* theRect, long theX, 
long theY) ; 

static int _inside< RECT* theRect, long theX, long 

theY); 

void CTouchCheck i t clipRectToClientRect { RECT* r 

>; 



flendif // 

lde£ined{AFX_TOUCHCHECK_H_EB568P20_4BAC_llDl„AB6a_0060083A2 
742 IHCLUDEDJ 



TouchCheckxpp 

// TouchCheck.cppi implementation of the CTouchCheck class. 
// 

////////////////////////////////////////////////////////// 

fl include "TouchCheck.h" 
//^include <rwinbase.h> 

include <conidef.h> 
//^include "OutData.h" 
//Hinclude "FeedBack.h" 



//extern 
RECT 



CPeedBack* 



gjpFdBk; 
g_rcOb j 



// Static Members 

long CTouchCheck n pjmTouchingEnabled = 0; 
long CTouchCheck i t p_mReadyToTouch » 0; 
long CTouchChecki jp_mTouchProtected » 0,- 

// Macro 

define _ResetReadyToTouch U InterlockedExchange ( 
&p_mReadyToTouch, 0 ) 

fldefine _SetReadyToTouch ( ) InterlockedExchange { 
&p_tnReadyToTouch, 1 ) 

lldefine _ResetTouchingEnabled ( } InterlockedExchange ( 

tp_mTouchingEnabled, o ) 

(/define jSetTouchingEnabled 0 InterlockedExchange < 
6p_mTouchingEnabled, 1 ) 

Ndefine _ResetTouchProtected() InterlockedExchange { 

tpjnTouch Protected, 0 ) 

Hdefine _SetTouchProtected() InterlockedExchange ( 
tpjmTouch Protected, 1 ) 



///////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////// 

CTouchCheck : » CTouchCheck ( ) 

{ 

p_mTouchablea « new CArray-sTRECT, TRECT&>; 
p_mTouchableSize = -1; 
pjnCurrent Index = -1; 
p_mCllentRectSpecif ied - 0; 
JiesetReadyToTouch ( } ; 
_ResetTouchingEnabled ( ) ; 

CTouchCheck i x -CTouchCheck ( ) 



{ 



) 



_ HeBetReadyToTouch ( J ; 
_ReBeLTouchingBnabled ( ) t 
while ( pjmTouchProtected *« l ) Sleep (0); 
// Yield until resources are free 
delete pjuTouchables; 



***./ 
/ 



/** Public Functions 

/***** ************************************* ************** 
void CTouchChecki i Pi llTouchables ( I HTMLElementCol Lection * 
theAll) 
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HRESULT hr; 

TouchElem kind; 

long index, allLength, i/ 

VARIANT vlndex, var2; 

LPDISPATCH pDispf 

IHTMLElement* pElein * NULL; 

// IHTMLBlementCollection* pAll » NULL; 

TRECT theTRect ; 

// Clear out the previous touchablesl 
_ResetRea dyToTou ch { } ; 
1 p_jnTouchab les - >RemoveAll ( ) ; 

// Grab our document. all interf ace . . . 
// hr = theAll- >QueryInterf ace < 

IID_IHTMLElementCollection, (LPVOID*) tpAll ); 
// if { hr — S OK ) 

// ( 

// Go through the list and onlykeep touchable ones 
index = -1; 
' vlndex. vt » VTJIINT; 
variantmit( &var2 ); 
theAll- >get_length( SallLength ); 
p_m'fouchableB->Setsize( allLength ); 
for < i«0; i < allLength; i++ ) 

// Get the element 

vlndex. iVal « i; 

hr » theAll ->item( vlndex, 

var2, tpDisp ) ; 

if { hr »* s OK ) 
{ 

hr - pDiBp- 

>QueryInterf ace( IID_IHTMLElement, (&PV0ID*) &pEiem ) ; 

if ( hr *» sok ) 

// See if it's 

touchable, and if so, add it to the array 

kind * 

Checkl f Touchable (pElem) ; 

if { kind !« 

teCantTouch ) 

index++; 

theTRect. kind » kind; 

J2e tTouchable Frame ( pBlem, &( theTRect. frame) ); 
p mTouchables-»SetAt( index, theTRect ); 

) 

pElem- 

>Release{) ? 

} 

pDiap->Release() ; 



} 



) 



// } 

p_mTouchableSize « index; 
p^mCurr en t Index * -1; 
SetReadyToTouch { ) ; 

) 



// mX and mY are in screen coordinates 

int CTouchChecki i TryTouching{ long mX, long mY) 

I 

// Check if we're ready for action I 
if { l (CTouchCheck * i p_jnReadyToTouch 
p_raClientRectSpecif ied fi& CTouchChecki i pjmTouchingEnabled) ) 
return 0/ 

// Stop immediately if out of bounds... 
if { _outside( &p_mClientRect, mX, mY ) ) 
return 0; 

// Transform mouse coordinates into client 
coordinates 

mX -o (p_mScreenToClientX - p__mScrollLef t) ; 
mY - c <P_mScreenToClientY - p_mScrollTop ); 

// Check everything in client coordinates I 
int index « 0; 

TRECT aTR; 

while { index <* p mTouchableSize ) 
( 

aTR » p^tttTouchablee ->Get At (index) 

if ( _inside( t (aTR. frame) , mX, mY ) ) 

// Is it the same one we're 

currently touching? 

if ( index «*« pjrnCur rent Index) 
return 0; 

//Do Feedback on it, . . maybe 
later check its touchtype (kind) 

_copyRectWithO£ feet ( 

&{aTR.f rame) , R{g_rcObj) ); 

^clipRectToClientRect < 

& (g_rcOb j ) ) ; 

// g_pFdBk->Enable( FBID_TREBITEM 

) ; 

p_mCur rent Index « index; 
return 1; 
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index* +; 



return 0; 



void CTouchCheck: iSetClientRectUong left, long top, long 
right, long bottom) 

pjnClientRect.left » left; 
pjuClientttect .top » top; 
p_mCllentRect .right » right; 
p_mClientRect .bottom => bottom; 
p_mClientRect Specified » 1/ 



) 



void CTouchChecki tSetScrollVal (long left, long top) 

_ReeetReadyToTouch() ; 
pjnScrollLeft « left; 
pjnScrollTop « top; 
p_mCur rent Index = -1 ; 
JietReadyToTouch {) ; 



void CTouchChecki tSetScreenToCl lent (long Xval, long Yval) 

p_mScreenToClientX « Xval; 
^ p_mScreenToClientY « Yval; 

void CTouchCheck. *EnableTouching( int touching ) 

if (touching) 

_SetTouchingEnabled ( } ? 

else 

^ _ResetTouchingEnabled ( ) ; 

long CTouchCheck* « IsTouchingEnabledO 

return CTouchCheck. ip_mTouchingEnabled/ 



1 on g CTou chCh eck 1 i 1 s R e ad yToTouch ( ) 

return (CTouchChecki i p_mReadyToTouch && 
CTouchCheck. ip_mTouchingEnabled) ; 



/********* ********* ft*************************************/ 
/** Private Functions 

void CTouchCheck. .JSetTouchableFrame ( IHTMLElement * theEl, 

RECT * theRect) 

{ 

// long left, top, right, bottom? 

theEl - >get_o£fBetLeft ( & (theRect->lef t) ); 
theEl~>get_o£ f setTop ( & t theRect- >top) ); 
theEl ->get__offsetWidth( & (theRect- >right) ); 
theEl ->get_of£setKeight< & {theRect- >bottom> ); 

_Trans f ormFrarneCorner { theEl, & (theRect - >le ft) , 
£( theRect -> top) ) ; 



) 



theRect->right +* <theRect->lef t } ; 
theRect ->bottom +- (theRect->top) ; 



void CTouchChecki t _Tr an sf ormFrarneCorner { iHTMLElement* 
theEl, long* left, long* top ) 

long temp; 
IHTMLElement* pEl; 

theEl ->get off setParent ( { IHTMLElement** ) &pEl) ; 
if ( pEl !* MULL ) 

pEl->get_of f setLeft ( &temp ); 
♦(left) +« temp; 
pEl->get_of f setTop( &temp ); 
*(top) +« temp; 

_Trans f ormFrarneCorner { pEl, left, top ); 
pEl ->Release () ; 



TouchElem CTouchCheck i jChecklf Touchable (IHTMLElement * 

theEl) 

( 

IHTMLElement* pUnk; 
// Is it an Anchor? 

theEl - >Query I nte r f ace { I ID_lHTMLAnchorElement , 
(LPVOID*) SLpUnk ) ; 

if ( pUnk ) { pUnk->Release() ; return teAnchor; 



// teArea.? 
// teMap,? 



// Is it a Text Area 7 

theEl ->QueryInterf ace < IID_IHTHLTextAreaElement , 
(LPVOID* ) tpUnk ); 

if < pUnk ) { pUnk->Relea9e{) ; return 
teTextArea ; } 

// Is it a Button? 

theEl ->Query Interface ( HD_IHTMLButtonElevnent , 
(LPVOID* ) fipUnk ); 

^ if ( pUnk ) { pUnk->Releaee{) ; return teButton; 

// Is it an Input Button? 

theEl ->Query Inter face ( 
IID_IHTMLInputButtonElement, (LPVOID* ) &pUnk ); 

if ( pUnk ) { pUnk->Release() ; return 
telnputButton; } 

// // Is it an Input Check Box? 

// theEl->Querylnter£ace( 

IID_IHTMLInputCheckBoxBlement, (LPVOID* ) ipUnk )/ 
// if ( pUnk ) { pUnk->Release() ; return 

telnputcheckBox; } 

// // Is it an Input Image? 

// theEl->QueryInterface{ HD_IHTMLInputImageBlercent, 

(LPVOID* )&pUnk ) ; 

// if ( pUnk ) ( pUnk->Release() ; return 

te Input Image? } 

// la it an Input Text? 

theEl->QueryInterface ( IID_iHTMLInputTextElement . 
(LPVOID* UpUnk ) ; 

if ( pUnk ) { pUnk->Release<) ; return 
telnputText; } 

//Is it a Input Radio Button? 

theEl ->Query Interf ace ( 
IID_U£THLOptionButtonSlement, (LPVOID*) SpUnk ); 

if ( pUnk ) ( pUnk->Releaae() ; return 
telnputRadio; } 

// None of the above I 
return teCantTouch; 



/********************************** ****************,******/ 

/** Utility Functions 

/******************** ****** * ***************** *************/ 

inline int CTouchChecki t__inside (RECT* theRect, long toeX, 

long theY) 

( 

if ( (theX>«theRect->left) (theX<«theRect- 
>right) && 

{theY>« theRect top) £& 
( theY<* theRect ->bot torn) ) 

return 1; 

else 

return 0; 

} 

inline int CTouchChecki ._out side (RECT* theRect, long theX, 
long the?) 



{ 

li 

>bottom) ) 
) 

inline void CTouchCheck. i_copyRect (RECT * from, RECT * to) 

to->left « from->left? 
to->right ■* from->right; 
to->top « from->top; 
to->bottom « f rom->bottom; 



if ( (theX<theRect->left) | | (theX>theRect->right) 
(theY<theRect->top) |j ftheY>theRect- 
retum 1; 

elee 

return 0; 



inline void CTouchCheck i i_copyRectWi thOf f set ( RECT* from, 

RECT* to ) 

{ 

to->le£t « from->left + (p mScreenToClientX - 
p_mScrollLef t) ; 

to«>right * f rom->right + (p__mScreenToClientX - 
p_mScrollLef t) ; 

to->top =« from->top + (p_mScreen'foClientY - 
p_mScj:ol lTop } ; 

to->bottom « from->bottom + tp_mScreenToClientY - 
pjnScrollTop ) ; 
} 



inline void CTouchChecki ._clipRectToClientRect ( RECT* r ) 

if ( r~>left < p_mClientRect,leffc ) r->left 
= p^mClientRect .left; 

if ( r->right > p^mClientRect .right ) r->right 
« p_raClientRect .right ; 
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£ V 
j.*ijs 



m 



if ( r->top < p_mClientRect . top ) r->top 
« pjnClientRect- top; 

if ( r->bottom > p_mClientRect .bottom ) r->battom 
j p_mClientRect* bottom; 



Feedback.h 

// FeedBack.hj interface for the CFeedBack clasa. 

///////////////////////////////////////////////////// 

Hifndef FEEDBACK H 
fldefine FEEDBACK~H 

class CFeedBack » public CObject 
public i 

CFeedBack (); 
virtual -CFeedBack ( } ; 
static CFeedBack *Create(); 
void Enable(UINT nID) ; 
void Disable (UINT nID) ; 

private i 

BOOL StartSerraMouseFake(UiNT period) ; 
void StopSerraMouseFake (void) ; 

privatei 

void CFeedBack » iBoundeCheck (RECT *r) ; 

int m_cynes; 

int m_cxRes/ 

BOOL initSuccees; 
I J RESULT timerlD; 

}; 

ftendif // FEEDBACK_H 



Feedback.cpp 

// FeedBack.cppt implementation of the CFeedBack class. 
// 

///////////////////////////////////////////////////////// 

ft include "etdafx.h" 
^include "outdata.h" 
^include <mmsy8tem.h> 
#include <asaert.h> 
^include <winbaee.h> 
^include »wincomm.h* 
ifinclude "FeedBack.h" 
include •'Touchcheck.h" 

Ififdef J)EBUG 
Hundef TH I S_F I LE 

Static char THIS_FILE [| m FILE ; 

H define new DEBUG NEW 

« end! if 



fldefine PERIOD 
^define SCREEN 



10 

6S535L 



// boolean variables for forces that must be explicitly 
turned off 

static BOOL f_pushvscroll » FALSE; 

static BOOL f_wmaz =. FALSE; 

static BOOL f_dragging « FALSE; 

static BOOL f_hscrolling » FALSE; 

static BOOL f_vscrolling * FALSE ; 

static BOOL fjnenuitem = FALSE; 

RECT g_rcObj ; 

extern CTouchCheck* g_pTouch; 

////////////////////////////////////////////////////// 
// Construction/Destruction 

///////////////////////////////////////////////// uu 
CFeedBack \ tCFeedBack { ) 

TRACE 0 ( "CFeedBack* *CFeedBack\n"> ; 
timer ID «* NULL; 
initSuccesa * FALSE; 

m_cxReB - GetSystemMetricB <SM_CXSCREEN) ; 
m_cyRes » GetSystemMetrics (SM_CYSCREEN) ; 

CoiiunlnitO ; 
// try' C0M1 thru COM4 
for (int 1 « 1; i <- 4r i»4) f 
if (CommConnectU,3B400l) ) { 

TRACE1 { "Connected on C0M%d\n»', i) ; 

initSucceas m Stai tSerraMouseFake (PERIOD) ; 

break; 
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CPeedBack* i -CFeedBack () 
\ 

TRACEO ( "CFeedBack i i ~CFeedBack\n« ) ; 



} 



Disable (FBID_OFF) j 
StopSerraMouseFake () ; 
CommEnd ( ) ; 



CFeedBack * CFeedBack t : Create ( > 



} 



TRACE ( "CFeedBack » » Create\n" ) ; 

CFeedBack *m_CFeedback » new CFeedBack ( ) ; 

if (m_CFeedback->initSucceas) { 

return m_CFeedback; 
}else{ 

delete m CFeedback; 
^ return (NULL) ; 



void CFeedBack: i Bounds Check (RECT *r) 



{ 



} 



i£(r-^left < 0) r->left « 0; 
if(r->top <. 0) r->top » 0; 

if(r->right > m_cxRes) r->right » m_cxRes; 
if <r->bottom > m_cyRes) r~>bottom » m_cyRes ; 



TRACE1 (™ 



%d 



void CFeedBack* j Enable (UINT nID) 

unsigned char InBuf [10]; 
int CommSuccess » 0; 
RECT *r » NULL; 

InBuf I 0J «= FBID_ON; 

TRACE1 { "Enable called for FBID fl%di", nID) ; 
switch (nID) { 

case 305; // TEXT SELECT 

r « &g_rc0bj; 

BoundsCheck(r) ; 

* (WORD *)(InBuf + 1) » (WORD) (r-^left * SCREEN 

/ m_cxRes) ; 

* (WORD *J(InBuf + 3) » (WORD) (r->top * SCREEN 

/ m_cyRes) ; 

if <ComznSendMsg< nID, InBuf, 5) ) TRACE{»< %d message 
sent, f%d,%d)\n\nID,r->le£t,r->top) f 
else 

message failed **\n", nID) ; 
break ; 

case 306 i // PUSH VSCROLL 

if ( J f_puehvscroll) 
< 

r = tg^rcobj; 
Bound b Check (r) / 

*{WORX> *) {InBuf + 1) 

« (WORD) (r->lef t * SCREEN / m^cyRea); 

f_pushvscroll - 

CommSendMBg(nID, InBuf ,3) ; 

if (f_pushvacroll} 
TRACE!" %d message sent, %d\n" # nID, r->lef t) ; 

else 

TRACE1{» ** %d message failed **\n", nID) 
)else{ 

TRACED ( " FBID_PUSHVSCROLL already 

enabled\n») ; 

} 

break; 
case fbid_wms2Ij 

f_wmsz « CommSendMsg(FBID_WMSZ, InBuf , 1J ? 
if(f_wmsz) TRACED («FB I D_WMSZ message sent\n«}; 
else TRACE 0 ( «FBID_WMSZ message failed\n«); 

break; 



(WORD) ( (r->left ♦ 2) * 
+ 2) * 



case FBID_FOCUSr 

r « &g_rcWnd; 

BoundsCheck (r) ; 

*(WORD *) (InBuf + 1) 
SCREEN / m_cxRes) ; 

* (WORD *) (InBuf + 3) - (WORD) ( (r->top 
SCREEN / m_cyRes) ; 

* (WORD *) (InBuf + S) m (WORD) ( (r->right - 2) * 
SCREEN / m_CXRes) ; 

*{WORD M (InBuf + 7) - (WORD) ( (r->bottom - 2) * 
SCREEN / m_CyRes); 

if (CommSendMsg(FBlD_FOCUS, InBuf, 9) ) 

TRACE ( w FBID_FOCUS message sent 
{\d ( %d, %d, %d)\n»,r~>lefL,r->top, r->right, r->bofctom) ; 

else TRACEO ( " FBID FOCUS message failed\n»); 

rtendif 

break; 
case FB I D__D RAGGING i 

if { I f ^dragging) { 
f dragging » 
CommSendMsg(FBID_DRAGGING, InBuf , 1) ; 

if (f_dragging) traced (« FBID_JDRAGGING 
message sent\n"); 

else TRACEO <» FB I D DRAGGING 

message failed\n") ; 
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}elae{ 

^ TRACE 0 ( M FBIDJ)RAGGING already enabled\n M ) ; 

break; 
caBe FBIDJISCROLLINGi 

if ( i fjiscroiling) { 

r * &g_rcObj; 

BoundaCheck(r) ; 

MWORD *) {InBuf + 1) = (WORD) (r->left * 
SCREEN / m_cxRes) ; 

MWORD *| (InBuf + 3) « (WORD) (r->top * 
SCREEN / m_cyRea> ; 

•(WORD *) (InBuf + 5) = (WORD) (r-^right * 
SCREEN / m_cxRea) / 

* (WORD *) (InBuf + 7) «. (WORD) (r->bottom* 
SCREEN / m_cyRes) / 

f_hscrolling =» 
CaiimiSendMBg(FBID_ t HSCROLLING, rnBuf , 9) ; 

If ( f Jiscrolling) TRACE 0 ( » FBIDJISCROLLING 
message sent\n"); 

else TRAC E 0 ( f ' FB I D_K S CROLL ING 

message failed\n*)/ 
} 

break; 
case FB I D^V SCROLL I NG t 

if ({ f^vs c rolling > { 
r m &g_rcObj; 
BoundaCheck(r) ; 

MWORD *) (InBuf + 1) = (WORD) (r-s»left * 
SCREEN / m_cxRes) ; 

MWORD *) (InBuf + 3) - (WORD) (r- > top * 
SCREEN 7 m_cyRea) ; 

MWORD *) (InBuf + 5) - (WORD) (r->right * 
SCREEN / ra_cxRee) ; 

MWORD *) (InBuf + 7) - (WORD) (r->bottora* 
SCREEN / m_cyRee) / 

f^vacrolling » 
CommSendMag ( FBID_VSCROLLING, InBuf, 9) ; 

if (f_vflcrolling) TRACEO { "FBID_VSCROLLING 

message sent\n M ) f 



else 

message failed\n"}; 
} 

break/ 



TRACEO {"FBID VSCROLLING 



caae 


FBID LISTITEM J 


// 


2 


case 


FB ID_TREEITEM » 


// 


3 


case 


FBID MENUITEMt 


// 


6 


case 


FBID PUSHBTN t 


// 


10 


case 


FBID CLOSE t 


// 


402 


case 


FBID MAXBTNt 


// 


407 


caae 


FBID MINBTNi 


// 


408 


caae 


FBID VSCROLLi 


// 


410 



r » &g_rcObj; 
BoundsCheck(r) ; 

* (WORD *) (InBuf + 1) « (WORD) (r->lef t + SCREEN 

/ m__cxRes) ,« 

MWORD *) (InBuf + 3) » (WORD) <r->top * SCREEN 

/ m_cyRes ) ; 

MWORD *) (InBuf t 5] » (WORD) (r->right * SCREEN 

/ m_cxReo) ; 

* (WORD *) (InBuf + 7) = (WORD) (r->bottom* SCREEN 

/ m__cyRes ) ; 

if (CommSendMag (n ID, InBuf « 9) ) TRACE ( " %d message 
sent, <%d,%d,%d,%d)\n".nID,r->left,r->top,r->right,r- 
>bottom) j 

elae TRACE 1 ( " ** %d 

meaBage failed **\n", nID) ,« 
break; 

case FBID__LISTFOLDERi // 4 
Case FBID_ITEMFOCUS> // 102 
case FBIDJTITLEBARj // 4 01 
case FBID J3ROWBOX: // 403 
Case FBID_HELP» // 4 04 

case FBIDJHSCROLLi // 4 05 
case FBID_MBNUt // 406 

caae FBID_SYSMENU» // 409 

TRACE 1 ( " %d recognized, but no message sent\n", 

nID) ; 

break; 
default t 

TRACK 1 ( " ** %d unrecognized by 
CFeedback m Enable () **\n", nID) ; 
break; 

) 

) 

void CFeedBacki jDiaabledJINT nID) 
{ 

unsigned char InBuf [10}; 
RECT *r * NULL; 
InBuf [0j » FB ID_OFF; 

TRACE1 ("Disable called for FBID flfcd*", nID) ; 
switch (nID) ( 

case 3 05 i // TEXT SELECT 

CommSendMsg(nID, InBuf ,1) ; 

break; 

caae 306 t // PUSH VSCROLL 

if {£_pushvscroll) 

f_pushvscroll * 

I CommSendMag (nID, InBuf , 1) 

if (£_puahvacroii) TRACEO ( " FBID PUSHVSCROLL 
*< FAILED **\n") / 



else TRACEO ( " FBID PUSHVSCROLL 

disabled \n"); 

}else{ 

^ TRACEO ( " FBIDJPUSHVSCROLL not enabledVn") ; 

break; 
caae FBID_WMSZ» 

»if o 

if (f_wmsz) { 

r » fcg_^rcWnd; 
BoundaCheck(r) ; 

* (WORD *) (InBuf + 1) » (WORD) ( <r->left 4 
2) * SCREEN / m^cxRes); 

~MWORD *) (InBuf + 3) x (WORD) ( (r->top + 
2) * SCREEN / m_cyRes); 

* (WORD *) (InBuf + 5) - (WORD) ( (r->right - 
2) * SCREEN / m_cxRes) ; 

* (WORD M (InBuf + 7) « (WORD) ( (r->bottom - 
2) * SCREEN / mjryRes) ; f_wma« » 

I (CommSendMsg (FBIDJfMSZ, InBuf, 9) ) ; 

If (f_wrasz) TRACEO (« FBID WMSZ *» FAILED 

**\n«); 

else TRACE ( " FBID WMSZ disabled 

(%d, %d, %d. Id) \n", r->le£t , r->top, r->right7r->bottom) ; 
}else{ 

TRACE ( M FBID^WMSZ not enabled\n»), 

flendif 

break; 
case FBID_DRAGGINGt 
if (f^dragging) { 
f_dragging « 
J (CommSendMsg (FBID_DRAGG ING, InBuf , 1) ) ; 

if (f_dragging> TRACEO { " FBID_DRAGGING ** 

FAILED **\n") ; 

else TRACEO (" FB ID DRAGG I NG 

disabled \n"); 

}el B e{ 

^ traceo ( " FBID^DRAGGING not enabled\n")/ 

break; 
case FBID_HSCROLLING t 
if (f_hscrolling) { 
f_hacrolling » 
l (CommSendMag (FBIDJISCROLLING, InBuf f l)) ; 

if (fjiscrolling) TRACEO ( w FBI D_H SCROLL I NG ** 

FAILED **\n") ; 

else TRACEO ( rt FBID_HSCROLLING 

disabled \n»); 

}else{ 

TRACEO ( " PB I D__H SCROLL I NG not enabled\n» ) , 

break; 
case FBID_VSCROLLINGi 
if (f_vscrolling) { 
f_vscrolling * 
« (CommSendMsg ( FBID__VSCROLLINO, InBuf, 1) ) ; 

if (f_VScrolling) TRACEO ( " FBID VSCROLLING ** 

FAILED **\n") ; 

else TRACEO ( 11 FBID VSCROLLING 

disabled \n"); 

)else{ 

^ TRACEO (" FB I D_V SCROLL ING not enabled\n"); 
break; 

case FB I D_M ENU I TEM i 
if (f_menuitem) { 
f_menuitem a 
I CommSendMag (FBID^MENUITEM, InBuf ,1) ; 

if (fjmenuitem) TRACE ( " FB I D__M ENU I TEM ** 

FAILED **\n'«); 

else TRACE { 11 FBID_MENUITEM 

disabled\nM ; 

}else{ 

TRACE ( " FB I D_MENU I TEM not enabled\n" ) ; 

break; 
case FBID_OFFi 

if (CommSendMag (FBI D_0FF, InBuf, 1)) { 

f_vscrolling « f_hscrolling « f_dragging » 

FALSE; 

f_wmsz = FALSE; 
TRACEO ( " FBIC_OFF sent\n«); 
)elae{ 

^ TRACEO (" FBID_OFF ** failed **\n»); 

break; 
default* 

TRACE 1 ( " ** %d unrecognized by 
CFeedback i r Disable **\n", nID) 
break; 

void WINAPI TimeFunc(UINT wTimerlD, UINT msg, DWORD dwUser, 

DWORD dwl, DWORD dw2) 

[ 

unsigned char InBuf [20]/ 
WORD dx, dy; 

unsigned char newButtonS; 

static unsigned char buttons » 0; 

DWORD flags a 0; 

static WORD scrollDir a o, scrollCount « 0; 
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UCHAR BcrollRate » Oxtf; 
POINT cursorPos; 

if (CommGetMsg ( In8uf > ) { // there's a message 

unsigned short type * * (unsigned short *) {InBuf); // 
bytes 0 & 1 are types 
switch (type) { 

case CP') i // its a position message 
dx - MWORD *) (InBuf + 2) ; 
dy « *<WORD *} (InBuf f 4); 
newButtons » InBuf [6}; 

if ((newButtons A buttons) & 0x1) { //left 
mouse button change 

if (newButtons & 0x01) flags |= 
MOUSEE VENTF_LE FTDOWN ; 

else flags | « 

MOUSEEVENTF_LEFTUP; 

) 

if {(newButtons * buttons) & 0x2) { // right 

mouse button change 

if (newButtonB & 0x02) flags }- 
MOUSEEVENTF^RIGHTDOWN ; 

else flags [» 

MOUSEEVENTF_RIGHTUP; 
} 

if ({newButtons * buttons) & 0x4) { // 
middle mouse button change 

if (newButtons & 0x04) flags I* 
MOUSEEVENTF_MI DDLBDOWN { 

, else flags |= 

MOUSEEVBNTF MIDDLEUP; 
~> 

flags \m (MOUSEEVENTF ABSOLUTE I 
MOUSEEVENTF_MOVE) ; 

mouse_event (flags, dx, dy, 0, 0); 

buttons « newButtons; //store the last buttons 

// Do TouchCheck stuff 
Hdefine _ResetTouchProtected (} 

InterlockedExchange ( 
& (CTouchChecki »p_tnTouchProtected) , 0 } 

tf define _SetTouchProtected() 

InterlockedExchange { 
& (CTbuchChecki tp_mTouchProtected) , 1 ) 

_SetTouchProtected() ; 
if ( 

CTouchCheck t i IaReadyToTouch { ) ) 

{ 

GetCurBorPos( , 

fccursorPos ) ; 

g_pTouch- 

>TryTouching ( cursorPos. x, cursorPos. y ),- 

_ResetTouchProtected() ; 

break/ 

case (♦A 1 ): // an action message 

tfif 0 

if (GetCursorPos (teursorPos) ) { 
CAccessible *pacc * 
CAccessibler » Create (cursorPos) ; 

if (pace) pace - >DoObj Def Act ion () ; 



flendif 

Hit 0 

+~ 2); 



} 



break; 

case('S'): //a scrolling message 



scrollRate » * (UCHAR *) (InBuf 



scrollDir » *(UCHAR *) (InBuf + 3); 
TRACE2 ("Scrolling Message i Rater %d Dirj %d\n", 
(int) scrollRate, (int)scrollDir) ; 
scrollCountt*; 

if (scrollRate < 200 && scrollCount > 

scrollRate] { 

TRACE 1 ( "Scrolling Window t Rates %d\n", 

scrollRate) ; 

ScrollThe Window (cursorPos, 0, scrollDir); 
scrollCount » 0; 

} 

ffendif 

break; 
) //end switch 

) } 

BOOL CFeedBackt iStartSerraMouseFake{UINT period) 



( 



TRACE ( "CFeedBack ; tSLartSerraMou3eFake\n M ) ; 



TIMECAPS tc; 

if (tiineGetDevCapsUtc, sizeof (TIMECAPS) ) »« 
TIMERR_NOERROR) return FALSE; 

UINT wTimerRes «» min(Tuax(tc.wPeriodMin, 
1) , tc.wPeriodMax) ; 

timeBeginPeriod(wTimerRes) 
it (period < wTimerRes) 
period » wTimerRes; 

timerlD ~ LimeSetBvent (per lod, period , TimeFunc, 0 , 
TIME_PERIODIC) ; 
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if (timerlD) return TRUE/ 
return FALSE; 



i 

void CFeedBack» tStopSerraMouseFake (void) 



{ 



TRACE ( "CFeedBack i iStopSerraMouseFake\n") ; 
if (timerlD) timeKillEvent (timerlD) ; 



Vbutil.h 

// VBUTIL. c - Example DLL for Visual Basic applications. 

//®B VBUtil 

flinclude "vbutil.h" 

H INSTANCE dlllnst » NULL; 

// This function is the library entry point. It's 
technically 

// optional for 32 -bit programs, but you* 11 have more 
options later if you define it. 

BOOL WINAPr DllMain(HINSTANCE hlnatA, DWORD dwReason, LPVOID 

lpvReserved) 

{ 

switch (dwReason) { 
case DLL_PROCESS_ATTACH i 

// The DLL is being mapped into the 
process's address space 

// Do any additional initialization here 

dlllnBt - hlnetA; 

break; 

case DLL_THREAD_ATTACH> 

//A thread is being created 

break; 

case DLLJTHREAD_DETACH t 

// A thread is exiting cleanly 

break/ 

case DLL_PROCESS__DETACH » 

// The DLL is being unmapped from the 
process's address space 

//Do any additional cleanup here 
dlllnst - 0; 

break; 

} 

return TRUE; 

} 

//@E VBUtil 

// 16-bit version for comparison 
Ut 0 

int PASCAL LibMain (H INSTANCE hlnstA, WORD wDataSeg, 

WORD cbHeapSize, 

LPSTR lpCmdLine) 
( 

if (cbHeapSize U 0) 

UnlockData(O) ; 
dlllnst - hlnstA? 



here 
) 



// Do any additional 16 -bit server initialization 
return dlllnst; 



int FAR PASCAL WEP(int bSystemExit) 

// Do any additional 16 -bit server cleanup here 
dlllnst « 0; 
return 1; 

} 

Jfendif 

//@B Errorllandler 

void Errorllandler (Long e) 

{ 

DWORD err « 0; 
if (e >- 0) { 

err = (DWORD) e; 
} else { 

err « RResul tToErr (e) / 

} 

SetLastError ( (DWORD) err) ; 

} 

//@E ErrorHandler 

DWORD HResultToErr(Long e) 
{ 

ASSERT (e < 0) ; 

switch (e) { 

case E__ I NVAL I DARG » 

return ERROR_ I NVAL I D__ PARAMETER; 
case E_OUTO FM EMORY t 

re tu rn E R R OR_NOT_ENO UGH_MEMOR Y ( - 
caae DISP E BAD I NDEX i 
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return ERROR_INVALID_INDEX; 
caae DISP_B_TYPEM1SMATCH * 

return ERR0R_INVALID_DATATYPE; 
caae DISP_E_EXCEPTIONt 

return ERROR_EXCEPTION_IN_SERVICE; 
case DISP_E_BADVARTYPE» 

return ERROR_I NVALI D_DATATYPE ; 
caae DISP_E__ARRAYISLOCKEDi 

return ERR0R_LOCKED; 
caae E_UN EXPECTED i 

reburn £RROR_ I NVAL I D_DATA ; 
caae DISP_E_0VERFLOWi 

return ERROR_AR I THMETI C_p VER FLOW ; 
case E_ACCBSSDEN1EDi 

return ERROR ACCESSJDENIED; 
caae E_PO INTER: 

return ERROR_INVALID_ADDRESS ; 

caae E JHANDLE i 

return ERR0R_1NVALID_HANDLE; 
caae E_ABORT» 

return ERROR_OPERATION_ABORTED; 
caae E_FAIL» 

return ERROR GEN FAILURE; 
} " " 

return ERRO R_ I NVAL I D_D AT A ; 



Vbutil.cpp 

// VBUTIL. C - Example DLL for Visual Basic applicationa . 

//®B VBUtil 

0 include "vbutil.h" 

H INSTANCE dlllnBt « NULL; 

// Thia function is the library entry point. It's 
technically 

// optional for 32-bit programs, but you'll have more 

options later 

// if you define it. 

BOOL WINAPI D llMa in (H INSTANCE hlnstA, DWORD dwReason, LPVOID 

lpvReserved) 

{ 

switch (dwReason) { 
caae DLL_PROCESS_ATTACK x 

// The DLL is being mapped into the 
process's address apace 

// Do any additional initialization here 

dlllnBt » hlnatA; 

break; 

case DLL_THREAD_ATTACH» 

// A thread is being created 

break; 

case DLL_THREADJDETACHt 

// A thread is exiting cleanly 

break; 

case DLL__PROCESS_DETACH i 

// The DLL is being unmapped from the 
process ' q address space 

//Do any additional cleanup here 
dlllnst - 0; 

break; 

} 

return TRUE; ' 

} 

//9B VBUtil 

// 16-bit version for comparison 
Oif 0 

int PASCAL LibMain (HINSTANCE hlnstA, WORD wDataSeg. 

WORD cbHeapSize, 

LPSTR lpCmdLine) 



{ 



} 



if (cbHeapSize !» 0} 

UnlockData(o); 
dlllnat * hlnstA; 

// Do any additional 16 -bit server init here 
return dlllnst; 



int FAR PASCAL WEP(int bSystemExit) 
{ 

// Do any additional 16 -bit server cleanup here 
dlllnst = 0; 
return 1; 

) 

Sendif 

//(SB Erx-orHandler 

void Erroi Handler (Lony e) 

{ 

DWORD err * 0; 
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if (e >« o) { 

err * (DWORD) e; 
} else { 

err - HResultToErr (e) ; 

) 

SetLastError ( (DWORD) err) ; 

} 

//®E Errorliandler 

DWORD HResultToErr (Long e) 

ASSERT(e < 0) / 

switch (e) { 

caae E_INVALIDARG t 

return ERROR_ I NVAL ID_ PARAMETER; 
case E_OUTOFM EMORY j 

return ERROR_N0T_ENOUGH_MEM0RY; 
case DISP_E_BADINDEX: 

return ERROR_ I NVAL I D_ I NDEX ; 
caae DISP_E_TYPEMISMATCH7 

return ERROR_INVAL I D_DATATYPE ; 
case DISP_E_EXCEPTIONi 

return ERROR_EXCEPTION__IN_SERVICE; 
case DISP__E_BADVARTYPE « 

return ERROR__ I NVAL I D_DATATY PE ? 
case DI SP_E_ARRAYI SLOCKED i 

return ERROR_LOCKED; 
case E_UNSXPECTED i 

return ERROR_INVALIDJDATA; 
case DISP_E_OVERFL0Wi 

re tu r n ERROR_AR ITHMETI CJDVERF LOW ; 
case E_ACCSSSDENIEDt 

return E RR 0R__ACCES S_DEN I ED ; 
case E_PO INTERi 

return ERROR_I NVALI D_ADDRESS ; 
case E JHANDLE t 

return ERROR_INVALID_HANDLE; 
case E_AB0RTi 

return ERROR_OPERATION_ABORTED ; 
case E_FAIL» 

return ERROR GEN FAILURE; 

} 

return ERROR_INVALID_DATA; 



OutData.h 

////////////////////////////////////////////////////////// 

// IFData.h - this header file contains all IForce related 
data and string definitions 

Oifndef _IFDATA_H_ 
0 define _IFPATA_H~ 

////////////////////////////////////////////////////////// 
// Control Feedback Definitions 

////////////////////////////////////////////////////////// 

// currently defined in SerraRemote/ Feedback? t 
Odefine FBID_OFF 0 // Y 

Odefine FBIDJ3N 1 

////////////////////////////////////////////////////////// 
// Definitions for object related feedback 

/////////////////////////////////////////////////////////// 



Odefine 
0 define 
Odefine 
Odefine 
0 define 
Odefine 
Odefine 
ft define 
ftdef ine 



FB I D_L I ST I TEM 
FBID_TREEITEM 
FB I D_LI STFOLDER 
PBIDJTREEFOLDER 
FBID_MENUITEM 
FBID_CHBCKBTN 
FBID_RAD10BTN 

FB ID_PUSHBTN 
FB ID SEPARATOR 



a 

9 

10 

11 



// Y 



/////////////////////////////////////////////////////////// 
// State related Feedback Definitions 

/////////////////////////////////////////////////////////// 

Odefine FB I D_ I TEMUNAVA 1 LAB L E 10Q 

Odefine fbid~itemchecked ioi 

Ode fine FB I D~ I TEM FOCUS 
Ode fine FB I 0_ ITEMS ELECT 

Odefine FB I D~ I TEMCOLLA PS E 104 
Odefine FB ID ITEMEXPAND 



102 
103 



10S 



Odefine FB I D_BOTTOM 

Ode t ine FBI DJB0TT0MLEFT 

Ode fine FB I D_BOTTOMR IGHT 

Ode fine FBID_LEFT 

Ode fine FBID_RIGHT 

Ode fine FBID_TOP 

f( define FB I D_TOPLE FT 

« de f i n e FB I D_TOPR I GUT 

ttdefine FBID TITLE 



2O0 
201 



205 
206 
207 



208 



/////////////////////////////////////////////////////////// 
// Definitions for event related feedback 

/////////////////////////////////////////////////////////// 
Hdef ine FBIDJ3RAGGING 3O0 // Y 
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ftdefine FBID_WMSZ 
ft define PB I D_H SCROLLING 
ft define FBIDJ/SCROLLING 
ftdefine FBID~FOCUS 
ftdefine FBIDJWDMINMAX 
ftdefine FBID~WNDCHANGE 



301 
302 
303 
304 

306 



/////////////////////////////////////////////////////////// 
// window elements 

/////////////////////////////////////////////////////////// 



ftdefine 


FBID BORDER 


400 


ftdefine 


FB I D_T I TL BB AR 


401 


ftdefine 


FBIDJTLOSB 


402 


ftdefine 


FBID GROWBOX 


403 


fldefine 


FBID HELP 


404 


ftdefine 


FBID H SCROLL 


405 


ftdefine 


FBID~MENU 


4 06 


ftdefine 


FBID_MAXBTN 


407 


ftdefine 


FB1DJ4INBTN 


408 


ftdefine 


FBID SYSMENU 


409 


ftdefine 


FBID VSCR0LL 


410 



/////////////////////////////////////////////////////////// 

// Times 

/////////////////////////////////////////////////////////// 
typedef struct 

int cOps; 
DWORD dwBgn; 
DWORD dwEnd; 
DWORD dwCum; 
J EVJTIME, *PEV_TIME; 

typedef struct 

int fDrag t 2; 
int fWtnsz i 1? 
int f Scroll i 1; 

} FLAGS; 

/////////////////////////////////////////////////////////// 

// Some integer and string ids 

/////////////////////////////////////////////////////////// 
ftdefine SZ_RECT " ( %d, %d, %d, %d} » 

ftdefine SZJTUMDRAG " «%ld drags" 

ftdefine SZJIORZ •'Horizontal 
scrollbar" 

ftdefine SZ_VERT "Vertical scrollbar" 

ftdefine SZ SCROLLING »%s\nPoai tld.Hin: %ld,Max: 

%ld" 



ftdefine max_buf 
ftdefine MIN_buf 
ftdefine SMALL 



2048 

128 

64 



/////////////////////////////////////////////////////////// 
// Event strings 

////// nn untu ii mnmnmumn inuunnuuum 

Hdefine NUM_pP "*ld Operations" 

ftdefine TIME_OP "Operation timej %s\n" 

ftdefine TIME_CUM "Cumulative Time* %s\n\n« 
ftdefine TIME_STRING «*lu Kr(s)t%lu Min(s) t%lu 

Sec(s) i %lu ms" 



ftdefine OP_APP 
ftdefine OP DRAG 
ftdefine OP_SCROLL 
ftdefine OP WMSZ 



'«\nApp Exited\n" 
"\nDrag opera tion\n" 
"\nScroll operation\n" 

"\nMove/size operation\n" 



/////////////////////////////////////////////////////////// 
// Event strings 

/////////////////////////////////////////////////////////// 

ftdefine EV_N0NE 0 

ftdefine EV_LBTNDN 1 

ftdefine EV_LBTNUP 2 

ftdefine EV_M0USEMOVE 3 

ftdefine EV MEMUSEL 4 

ftdefine EV_DRAGSEL 5 

ftdefine EV_DRAGGING 6 

ftdefine EV_DROP 7 

ftdefine EV_SCROLLING 8 

ftdefine EV_WMSZ 9 

ftdefine EV_F0CUS 10 

/////////////////////////////////////////////////////////// 
// Object state strings 

/////////////////////////////////////////////////////////// 



ftdefine STATE_UNAVA I LAB LE 
ftdefine STATE_S ELECTED 

"Selected; " 
ftdefine state_focused 
ftdefine STATE~PRESSED 
ftdefine STATE~CI1ECKED 
ftdefine STATE_M3XED 
ftdefine STATE~READONLY 
only; " 

ftdefine STATE HOTTRACKBD 
ftdefine STATEJ3EFAULT 



"Unavailable; " 



"Focused,- " 
"Pressed; " 
"Checked; " 
"Mixed; " 
"Read 

"Hot tracked;" 

"Default;" 



ft d e £ i ne S TATE_EX PAHDED 
"Expanded; " 

ftdefine STATE_COLLAPSED 
"Collapsed; " 

ftdefine STATB_BUSY 

ftdefine STATE_FLOATING 
"Floating/ « 

ftdefine STATE_MARQUEED 

text;" 

ftdefine STATE_AN I MATED 

"Animated; " 
ftdefine STATB_INVISIBLE 
ftdefine STATE_OFFSCREEN 
screen; 11 

ftdefine STATE_S I ZABLB 
ftdefine STATE_MOVABLE 
ftdefine STATE_SELFVOICING 
ftdefine STATE^SELECTABLE 
ftdefine STATE_FOCUSABLE 

"Focusable; " 
ftdefine STATEJLINKED 
ftdefine STATE_TRAVERSED 

"Tracereed,-' 1 
ftdefine STATE MULTISEL 
eel;" 

ftdefine STATE J2XTSEL 
ftdefine STATE AL_LO 
ftdefine STATE~AL ME 
ftdefine STATE~AL~HI 

ftendif 



"Busy,-" 
"Scroll 



"Hidden;" 
"Off- 



sizable/" 
"Movable;" 

"Self voice/* 

"Selectable/" 



"Multi 



"Ext Bel/- 

"Low; " 

"Medium;" 

"Hi/" 



StdAfx.h 

// stdafx.h i include file for standard system include 
files, 

// or project specific include files that are used 

frequently, but are changed infrequently 

ftif 

ldefined(AFX_STDAFX_H__E99B6C44_3FEB_llDl_A8 6B 0060083A2742 
_ INCLUDED ) 
ftdefine 

AFX_STDAFX_H_J59986C44_3FEB_11D1 A868 006008 3A2742__INCLUDED 



ftif _MSC_VBR >=» 1000 
ftpragma once 

ftendif // _MSC_VER >» 1000 

ftdefine STRICT 

ftinclude <afxwin.b> 
ftinclude <afxdisp.h> 

ftdefine JWIN32_WINNT 0x0400 
ftdefine ~ATL APARTMENT THREADED 



ftinclude <atlbase.h> 

//You may derive a class from CComModule and use it if you 
want to override 

//something, but do not change the name of _Module 
extern CComModule _Module; 
ftinclude <atlcom.h> 
ftinclude <atlctl.h> 

// { { AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional 
declarations immediately before the previous line . 

ftendif // 

ldefined(AFX STDAFX H E9986C44 3FBB 11D1 A8 68_O060083A2742 
_INCLUDED) 



StdAfx.cpp 



// etdafx.cpp * source file that includes just the standard 
includes 

// stdafx.pch will be the pre- compiled header 
// ^Btdafx.obj will contain the pre-compiled type 
information 

ftinclude "stdafx.h" 

ft i f de f _ATL_S TAT I C_R EG I STRY 
ftinclude <statreg.h> 
ftinclude <statreg .cpp> 
ftendif 

H include <atlimpl ,cpp> 
ftinclude <atlctl.cpp> 
ftinclude <atlwin.cpp> 
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APPENDIX B 

Source code implementing different feels of Fig. 1 2 usin 
force-only ActiveX control. 

FeelControl.odl 

// FeelControl.odl : type library source for ActiveX Control 
project. 

// This file will be processed by the Make Type Library 
(mktyplib) tool to 

// produce the type library (FeelControl. t lb) that will 
become a resource in FeelControl .ocx. 

H include <olectl.h> 
Hinclude <idispidB .h> 

1 uuid(78ACF764-5CCl-llDl-A868-0060083A2742) , version< 1 . 0) , 
helpfileC FeelControl. hip") , 

helpstring ("FeelControl ActiveX Control module"), 

control ) 
library FBELCONTROLLib 
{ 

import 1 ib (STDOLE_TLB) ; 
import lib (STDTYPE_TLB) ; 

// Primary dispatch interface for 
CFeelControlCtrl 

I uuid{7BACF765-5CCl-llDl-A868-0060Q83A2742) , 
helpstring ("Dispatch interface for FeelControl 
Control?) , hidden ] 

dispinterface _DFeelControl 
{ 

properties t 

// NOTE - ClassWizard will maintain 
property information here. 

// Use extreme caution when 

editing this section. 

//{{AFX ODL_PROP (CFeelControlCtrl) 
[id(l) J~BSTR EffeCtl; 
[id(2)J BSTR Effect2; 

tid(3)J BSTR Effect3; 
[id (4)] BSTR Bffect4? 
[id (5)] BSTR Effects; 
[id (6)] BSTR E£fect6; 
//}jAFX_ODL_PROP 

methods » 

// NOTE - ClassWizard will maintain 

method information here. 

// Use extreme caution when 

editing this section. 

// { {AFX M _ODL_METHOD (CFeelControlCtrl) 
"* (id (7)} long DoEf feet ( short 

ef fectNum) ; 

[id{8)] long StopEf feet (short 

effectNutn) ; 

[id (9)) void StopAllO; 
[id(10)J long SetEf feet (short 
effectNuin, BSTR ef fectParame) ; 

[id (11) J long 

DoEncloaureEtfect (Bhort ef fectNum, long left, long top, long 
right, long bottom); 

[id (12)] long ApplyForcedong Xdir, 

long Ydir, long Mag ) ; 

(id{13)) long StopForceO; 
// } ) AFX ODL METHOD 

}; 

// Event dispatch interface for CFeelControlCtrl 

[ Uuid(7BACF766-5CCl-llDl-A868-0060083A2742) , 
helpstring ("Event interface for FeelControl 

Control") ) 

dispinterface JDFeelControlEvents 

properties ; 

// Event interface has no properties 
methods i 

// NOTE - ClassWizard will maintain event 
information hexe. 

// Use extreme caution when editing this 

section. 

// { {AFX_ODL_EVENT (CFeelControlCtrl) 
//} }AFX_ODL_BVENT 

}; 

// Class information for CFeelControlCtrl 

I uuid[SDFDD466-5B37-HDl-A868-O06O083A2742) , 

helpstring ("FeelControl Control") , control } 
coclass FeelControl 
{ 
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[default] dispinterface _D FeelControl; 
{default, source! dispinterface 

_DFeelControlSvents ; 
}; 

// { {AFX_APPEND_ODL} } 
/ / } } AFX_APPEND_ODL j } 



FeelControl.def 

FeelControl.def t Declares the module parameters - 



" FEELCONTROL . OCX " 



DllCanUnloadNow @1 PRIVATE 

DllGetClassObject ®2 PRIVATE 

DllRegisterServer ®3 PRIVATE 

DllUnregisterServer ®4 PRIVATE 



FeelControl.h 



ut 

! defined (AFX_FEELCONTR0L_H 7BACF76C_5CC1 11D1_A868_G060083A 

2742 INCLUDED^) 

[[define 

AFX FEELCONTR0L_H__7 8ACF?6C_5CC1_1 1D1_A8 68_0 06 008 3 A2742__INC 
LUDED 



ftlf __MSC_VER 
[f pragma once 
# end if // J4SCJ/ER » 

U FeelControl.h 



1000 

1000 

main header file for FEELCONTROL . DLL 



Jfif I defined* AFXCTL_H__ > 

jlerror include ♦afxctl.h* before including this 

file 
#endif 



#include "resource .h" 



// main symbols 



/////////////////////////////////////////////////////////// 
// CFeelControlApp t See FeelControl .cpp for implementation. 

class CFeelControlApp i public CO leControl Module 
( 

public i 



BOOL mi t instance () ,- 
int Exit Instance () ; 



extern const GUID CDECL _tlid; 
extern const WORD _wVerMajor; 
extern const WORD _wVerMinor; 

// { {AFX_INSERT_L0CATION} } 

// Microsoft Developer Studio will insert additional 
declarations immediately before the previoua line. 

tfendif // 

rdefined(AFX_FEELCONTROL_H__78ACF76C_5CCl_HDl_A868_00600B3A 
2742 INCLUDED) 



FeelControl.cpp 



// FeelControl.cpp 
DLL registration. 



Implementation of CFeelControlApp and 



[[include "stdafx.h" 
#include "FeelControl.h" 
#ifdef _DEBUG 
[[define new DESUG_NEW 
flundef THIS_FILE 

ocatic char this fileIJ = FILE 

Hendif 

CFeelControlApp NEAR theApp; 

const GUID CDECL BASED_CODE _tlid * 

{ 0x78acf764, 0x5ccl, Oxlldl, { 0xa8, 
0x68, 0, 0x60, 0x8, 0x3a, 0x27, 0x42 ] ) ,- 
const WORD _wVer Major - 1; 
const WORD __wVerMinor = 0; 

/////////////////////////////////////////////////////////// 
// CFeelControlApp i « Initlnstance - DLL initialization 

BOOL CFeelControlApp « s Init Instance { } 



{ 



BOOL blnit * COleControlModule j » Init instance () ; 



X 

HI 
1 4 



111 
iu 



if (blnit) 

// TODOi Add your owtt module 
initialization code here. 
) 

return blnit ; 



/////////////////////////////////////////////////////////// 
// CFeelControlApp: * Exit instance - DLL termination 

int CFeelControlApp j i Exit Instance () 

If TODOj Add your own module termination code 

here. 

return COleControlModule: i Exit instance 0 ; 



/////////////////////////////////////////////////////////// 
// DllRegisterServer - Adds entries to the system registry 

STDAPI DllRegisterServer (void) 

AFXJ*ANAGE_STATE(_a£xModuleAddrThie) ; 

i£ (iAExOleRegisterTypeLib(AfxGetInstanceHandle(> . 

_tlid)> 

return 

Result FromScode {SELFREG_EJTYPELIB) ; 

, if ( I COleObject Factory Ext lUpdateRegistryAll (TRUE) ) 
return ReemltFroraScode <SELFREG_E_CLASS) ; 
return NOERROR / 

) 

/////////////////////////////////////////////////////////// 
// DllUnregieterServer - Removes enLries from the system 
registry 



STDAPI DllUnregisterServer (void) 



{ 



AFX MANAGE STATE (_af xModuleAddrTh is) ; 



i£ UAExOleUnregieterTypeLiMJilid, _wVerMajor, 
_wVer Minor) ) 

return 

Result FromScode (SELFREGJ3JTYPELIB) ; 
if 

( tCOleObjectFactoryExt *UpdateRegistryAll (FALSE) ) 

return Re suit FromScode (SELFREG_E_CLASS) ; 
return NOERROR ; 

} 



FeelForces.h 

f **************************************** *** ************** 

* FeelControl 

* (c) 1997 Immersion Corporation 
* 

* FILE 

* FeelForceB.h 

* DESCRIPTION 

* Provide methoda for doing force- feedback with the 
PorceClasaea 



fllEndeE FBELFORCESJi 

H define FEELFORCESJl 

BOOL FeelSetUp( H INSTANCE hlnst, HWND hWnd ) ; 
BOOL FeelCleanup( void ); 

BOOL FeelBeginEfEect( short eEfiectNum ); 
BOOL FeelEndEf feet ( short eEfectNum ); 
void PeelEndAllEffectst void ) : 

long FeelBeglnForce( long Xdir, long Ydir, long Mag >; 
long FeelEndForce( void ); 

. long FeelEnclosureEffecM short effectNum, long left, long 
top, long right, long bottom)/ 



Hendif FEELFORCE5JI 



FeelForces.cpp 

/************************* ************* ********************* 

* FeelControl 

* (c) 1997-1998 Immersion Corporation 



* FILE 
* 

* DESCRIPTION 



* Provide methodB for doing force -feedback with the 

ForceClasses, giving the FeelControl some guts,.. 



^include "etdaEx.h" 
^include "FeelForces .h" 
1} include " Force Feel itMouse .h" 
# include "ForceEEf ect .h" 
# include " Force Periodic .h" 
ft include "ForceDamper.h" 
S include "ForceEllipse .h" 

include "PorceCondition.h" 
JJinclude "ForceConstant .h" 
# include "ForceTexture.h" 
IU nc 1 ude "Force Enc 1 osu re . h " 
#include "ForceSpring.h" 
^include <stdio.h> 



Feel Forces .cpp 



// GLOBAL VARIABLES 

CFoxceFeelitMouse* 

CForceConatant* 

CForceEf f ect* 

CForceEEfect* 

CForceEEfect* 

CForceEEfect* 

CForceEEfect* 

CForceEEfect* 

CForceEEfect* 

CForceEEfect* 

CForceEf feet* 

CForceEffect* 

CForceEf feet* 

FORCE_ENV ELOPE 

FORCE~ENVELOPE 

FORCEJSNVELOPE 

FORCE ENVELOPE 



gMouse « 
gForce 
gEfEectl = 
gEffect2 « 
gEffect3 » 
gEffect4 » 
gBffectS - 
gBffectS ■ 
gEffect7 = 
gEffect8 m 
gEffectS » 
gEffectll - 
gEngineEnc 
f Envelopel; 
f Envelope 2/ 
fEnvelope3 ; 
£Envelope4; 



NULL; 

NULL f 
NULL? 
NULL, 
NULL; 
NULL; 
NULL; 
NULL; 
NULL; 
NULL; 
NULL; 



NULL; 



NULL; 



/* 



Globals for our params 



// Laser 

DWORD LDIRX « 1, LDIRY = 1, LDUR - 1000, LHAG - 100 00, 
LPER = 158, LOFF » 0, LPilA * 0; 

DWORD LDIRX2 « -1, LDIRY2 - 1, LDUR2 « 1000, LMAG2 - 6744, 
LPER2 = 13, LOFF2 m 0, LPHA2 m 0; 
// ICE 

DWORD IVIS * -4000, ISAT - 8000, IVEL « 10; 
// METEOR 

DWORD MSTIFF *4000, MWW * 20, MSAT « 8000; 
// DENIM TEXTURE 

DWORD DPQSK « 800O, DNEGK * 8000, DPOSS « 9, DNEGS ~ 9, 

DDEAD a 3; 

// DENIM GRID 

DWORD DGPOSK-3000, DGNEGK«3OO0 , DGPOSSb3000, DGNEGS»3000, 
DGDEAD=14 ; 
// ENGINE 

DWORD EDIRX « 1, EDIRY « 0, EDUR~2000, BMAG-5968, 
BPER-295, EOFF*0, EPHA*0; 

DWORD BDIRX2 - 0, EDIRY2 - 1, EDUR2-3500. EMAG2 « 10000, 
BPER2*100, EOFF2=0, EPHA2»00; 
// ENGINE ENCLOSURE 
DWORD ESTIFF »9B0O, EW 
// RAQUET STRING GRID 

DWORD SPOSK=3Q00, SNEGK«3000, SPOSS-3000. SNEGS*3000. 

SDEAD«14 ; 

// RAQUET ELLIPSE 

DWORD RSTIFF « 6000, RWW - 10, RSAT « 8000; // RSTIFF - 
600 0, RWW - 20, RSAT - flOOO 
// ENGINE ENVELOPE 

DWORD EEAL - 10000, EEAT m 390697, EEFL «1, EEFT-967441; 
DWORD EEAL2 » 0, EBAT2 * 2572093 t EEFL2-10000 , EEFT2-830232 ; 
// LASER ENVELOPE 

DWORD LEAL « 3 953, LEAT » 144186, LEFL-38 7, 
LEFT»641860; 

DWORD LEAL2 ■ 100 00, LEAT2 « 283720, LEFL2-0, LEFT2«0; 



28, ESAT » 9800; // 8000,20,8000 



BOOL FeelSetupi H INSTANCE hlnst, HWND hWnd ) 
{ 

/* 



BOOL success; 

// Try to get parameters from effects.dat 



FILE *fp » fopen{"feelcontrol.dat M , "t") ? 

if (£p) { 

// Laser 

fscanf (fp. "%d %d %d %d *d %d %d" , 
&LDIRX, &LDIRY, &LDUR, &LMAG, &LPER, &LOFF, &LPIIA ); 

f scant (fp, "%d %d %d %d *d %d %d", 
&LDIRX2, &LDIRY2. &LDUR2, tLMAG2, &LPER2, &LOFF2, RLPHA2 ); 

// ICE 

fscanf (fp, "%d %d %d», &IVIS, &ISAT, 

&IVEL ) j 

// METEOR 

fscanf (fp,"%d %d %d'\ &MSTIFF, &MWW, 

&MSAT ) t 

// DENIM 

fscanf (fp, "%d %d %d %d %d" , &DPOSX, 
&DNEGK, &DPOSS, 6DNEGS, &DDEAD ) ; 

// ENGINE 

fscanf (fp,"%d %d %d %d \d %d %d", 
&EDIRX, & EDIRY, &EDUR, &EMAG, &EPER, &EOFF, &EPHA ) ; 
// RAQUET STRING GRID 
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E8canE(£p,"%d %d %d %d %d" , &SPOSK, 
&SNEGK, &SPOSS, &SNEGS, &SDEAD }; 

// RAQUET ELLIPSE 

Eacanf (fp. «%d %d %d», &RSTIFF, &RWW, 

&RSAT ) ; 

// ENGINE 2 

£scan£(fp, *'%d %d %d %d %d %d %d», 

&EDJRX2, &EDIR Y2 , &BDUR2 , & EM AG 2 , &EPER2, &EOFF2 , &E PHA2 }; 
// ENGINE ENVELOPE 

fscanf (£p,"%d %d %d %d" , &EEAL, &EEAT, 



&EEFL, 
&BEFL2 , 

fcLEFL, 
&LBFL2 , 



&EEFT ) ; 
&ESFT2 ); 

tLEFT ) ; 
&LEFT2 ) j 



fscanf [£p, M %d %d %d id", &EEAL2, &EEAT2, 
// LASER ENVELOPE 

f BCanf (£p, "*d %d %d %d", &LEAL, &LEAT, 

fscanf (fp. "%d %d %d %d", &LEAL2, &LEAT2 , 

// Close it. . . 
Eclose(£p) ; 



// Set up the Mouse 

gMouae » new CForceFeelitMouse () 

iE ( I gMouse ) goto FS_Err; 

success o gMouse- > Initialize ( hinst, hWnd ); 

i £ ( ! success J goto FS_Err; 

// Set up the Force 
gForce - new CForceConstant 0 ; 
if < l gForce ) goto FS_Err; 
success » gForce->Initialize ( 
gMouse, 

FORCE_C0N STANT_D E FAULT_D I RECTI ON , 
INFINITE, 
0 

if ( ! success } goto FS_Err; 



// 
// 
// 
// 
// 
// 
// 

// ); 
// 

// Set envelopes... 

// Envelope 1 

fEnvelopel .dwSize « 

sizeof < FORCE_ENVEL0PE) ; 

fEnvelopel.dwAttackLevel » EEAL; 

fEnvelopel. dwAttackTime « EE AT; 

fEnvelopel -dwFadeLevel » , EE FL 

fEnvelopel.dwFadeTirae « EEFT; 

// Envelope 2 

£Bnvelope2 .dwSize 
sizeof <FORCB__ENVELOPE) ; 

fBnvelope2.dwAttackLevel - EEAL2; 

£Envelope2.dwAttackTlme » EE AT 2; 

fBnvelope2.dwFadeLevel » EEFL2; 

fEnvelope2.dwFadeTime » EBFT2; 

// Envelope 3 

EEnvelope3 .dwSize 
sizeof (F0RCE_ENVELOPE) ; 

£Envelope3 .dwAttackLevel = LEAL 

£ Envelopes .dwAttackTime * LEAT 

£ Envelope 3. dw Fade Level =■ LEFL 

£Envelope3.dwFadeTiroe " LEFT 

// Envelope 4 

fEnvelope4 .dwSize 
sizeof ( FORCE_ENVELOPE) , 

fEnvelopel.dwAttackLevel » LEAL2; 

£Bnvelope4.dwAttackTime - LEAT 2; 

f Envelope4.dwFadeLevel « LEFL 2 ; 

fBnvelope4.dwFadeTime = LEFT2; 

// Create effect 1 « LASER (PERIODIC SINE (1,0} 750 3023 10 
0 0) 

//Laser Effect HI 

gEEfectl » new CForcePeriodic (GUID_Force_Square) ; 
if < I gEEfectl ) goto' FS_Err; 

success « ( (CForcePeriodic* )gEf £ectl) - initialize ( 
gMouse, 
LMAG, 

// = FORCE_PERIODIC_DEFAULT_MAGNITUDE 
LPER, 

// «. FORCE_PERIQDIC_DEFAULT_PERIOD 
LDUR, 

// =• FORCE^PER I OD I C_DEFAULT_DURAT ION 

LD3RX, 
// X Direction 

LDI RY , 

// Y Diiection 
LOFF, 

// = F0RCE_PERIQDIC__DEFAULT_OFFSET 
LPHA, 

// n FORCE_PERIODIC_DEFAULT_PHASE 
&fEnvelope3 

); 

if ( ! success ) goto FSJSrr; 
// Laser effect #2 

gEffectB « hew CForcePer iodic <GUID__Force_Sine) ; 
if ( ! gEffectB ) goto PSjSrr; 

success - ( (CForcePeriodic*)gEf fecta) ->lnitialize( 
gHouse, , 
LMAG2 , 

// * FORCB_PERIODIC_DEFAULT_MAGNITUDE 
LPER2 , 

// a FORCE_PERIODIC_DEFAULT_PERI0D 



LDUR2, 

// = FORCE_PERIODIC_DEPAULT_DURATION 

LDIRX2, 
// X Direction 

LD1RY2 , 
// Y Direction 

LOFF2 , 

// - FORCE_PERIODICJ3EFAULTJ3FFSET 
LPHA2 , 

// » FORCE_PERIODIC_DEFAULT_PHASS 
£EEnvelope4 

) f 

if ( ! success ) goto FS_Err? 

// Create effect 2 » ICE (DAMPER -1000 8000 0 -1) 
gE£fect2 « new CForceDamper { } / 
if ( \ gE£fect2 ) goto FS_Err; 

success = ( (CForceDamper *TgE££ ect2> - initialize ( 
gMouBe, 
IVIS, // » 

FORCE_DAMPER_DEFAULT_VI SCOS ITY 

ISAT, // « 
FORCE DAM PER_DEF AULT_SATURATI ON 

IVEL, // - 
FORCE DAMPBR_DEFAULT_MIN_VELOCITY 

FORCE_E FF ECT_AXI S_BOTH 

) r 

if ( I success ) goto FS_Brr; 

// Create effect 4 « HETEOR (ELLIPSE -1 -1 2000 -1 -1 -I -1 

-1 8) 

gEEfect4 « new CForceBllipse; 
if ( ! gEffect4 ) goto FS_Err; 

success «* ( (CForceBllipse* )gE£fect4) - initialize { 
gHouse, 

FORCE ELLIPSE DEFAULT_WIDTH , 
PORCB~ELL IPSB_DEFAULT_HE I GHT, 
MSTIFF, // » 
FORCE_ELLI PSE_DEFAULT_STI FFNES9 
MWW, 
MS AT, 

FEELIT_FSTIFF OUTBOUNDANYWALL, 
/ / F0RCE_ELL I PS E_DEFAULTJ3TI FFNESS_MAS K , 

FORCE_ELLIPSE„DBFAULT_CLIPPING_MASK 4 
FORCE^ELLI PSE_DBFAULT_CENTER_PO INT, 
NULL 

) ? 

if ( t success ) goto FS_Err? 

// Create effect 5 - DENIM (CONDITION TEXTURE ???? J 
gEffectB « new CForceTexture { ) ; 
if ( l gEffectS > goto FS_Err; 

success » { (CForceTexture*) gEffectS } ->InitTexture ( 
gMouse, 
DPOSK, 

// IPOBBumpMag « FORCE_TEXTAJRE_DE FAULT JMGNITUDE, 
DPOSS, 

// dwPosBumpWidth « F0RCE_TEXTURB_DEFAU'LT_W I DTH , 
DDEAD, 

// dwPosBumpSpaeing » 
FORCE^TEXTUR E_D EFAULT_S P AC I NG , 
DWEGK, 

// lNegBumpMag « FORCE_TEXTURE_DEFAULT_MAGNITUDB, 
DNEGS , 

// dwNegBumpWidth * FORCB_TEXTURE_DEFAULT„WIDTH, 
DDEAD , 

/ / dwNegBumpSpacing»FORCB_TEXTURE_DEFAULT_SPACING, 
FORCB_EFFECT_AXIS__X // dwfAxis * 

FO RCE_E FFECT_AX I S_B0TII ] 

// pntOffset « FORCE TEXTURE_DEFAULT_pFFSET_POINT , 
// lDirectionX * FORCE_EFFECT_DEFAULT_D I RECTION_X , 
// lDirectionY » F0RCE_EFFECT_DEFAULT_DIRECTION_Y 

); 

if ( I success ) goto FS_Err; 

// Create effect 11 « DENIM (GRID) 

gEffectll « new CForceCondition ( GUlD_Force_Grid 

); 

if ( ! gEffectll ) goto FS_Err ; 
success « { (CForceCondition*) gEffectll) - 
>InitCondition( 

gMouae, 

DGPOSK, //PosK 
DGNEQK, //NegK 
DGPOSS, //PosSat 
DGNEGS, //NegSat 

dgdead, //Deadband - grid spacing in 

pixels 

FORCE_E F PECT_AX I S_X 
/ / FORCE_EFFECT_AXl S_BOTH 

// FORCB_CONDITI ON__DBFAULT_CENTER_PO INT 

); 

if ( ! success ) goto FS_Err; 

// Create effect 6 = MOTOR (PERIODIC SQUARE { 1, l} 10000 
6500 20 0 180) 

gE££ect6 « new CForcePeriodic (GUID__Force^Square) ; 

if ( \ gEf£ect6 ) goto FS_Err; 

auccess » ( (CForcePeriodic* )gE£ feet 6) ->Initialize ( 
gMouse, 
EM AG, 

// » FORC£_PERIODICJ)EFAULT_MAGNITUDE 
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i vr, 
5 M 



EPER, 

// » FORCE PERIODIC_DEFAULTJ?ERIOD 
EDUR, 

// = FORCE_PERIODIC_D£FAULT_DURATXON 

ED1RX, 
// X Direction 

EDIRY, 
// Y Direction 

EOFF, 

// = FORCE PERIODIC DEPAULT_OFFSET 
EPHA, 

// » F0RCE_PERIODIC_DBFAULT_PHA5E 
&£Envelopel 

)f 

if { I success ) goto FS_Err ; 

// Create effect 9 * MOTOR (PERIODIC SQUARE (l. l} 10000 
6500 20 0 1B0) 

gE££ect9 » new CForcePeriodic (GUID_Force_Sine) ; 

if { i gBffectg ) goto FS_J3rr ; 

aucceas » ( (CForcePeriodic* )gEf£eet9) ->Initialize ( 
gMouse, 
EMAG2 , 

// » FORCE_PERIODIC_DEFAULT_MAGNITUDE 
EPER2, 

// » FORCE PERIODIC_DEFAULT_PERIOD 
EDUR2 , 

// » FORCE_PERIODIC_DEFAUl.T_DURATION 

EDIRX2, 
// X Direction 

EDIRY2, 
// Y Direction 

EOFF2, 

// « FORCE_PER IODIC DEFAULTJDFFSET 
EPHA2 , 

// « FORCE_PERIODEC_D£FAlfLT_PHASB 
&£Envelope2 

); 

if ( 1 success ) goto FSJSrr,- 

// Create effect 7 « racquet^gr I D (CONDITION GRID) 

gE£fect7 » new CForceCondition< GUID_Force JSrid ); 

if ( J gEf£ect7 } goto FS_Err; 

success « ( (CForceConditlon*) gE££ect7) - 

>InitCondition( 



gMouse 
SPOSK, 
SNEGK, 
SPOSS, 
SNEGS, 



y/PosK 
//NegK 
//PosSat 
//Negsat 

SDEAD //Deadband -grid spacing in pixels 
/ / FORC E_E F FECT_AXI S_BOTH , 
//FORCE_CONDI TION__DBFAULT_CENTER_PO IHT 



( I success ) goto FS_Err; 



// Create effect 3 » RACQUET (ELLIPSE -1 -1 2000 - 
1 -1 -1 -1 -X B) 

// Make 3 after 7 because 3 is dependent on 7 
gEffect3 « new CForceEllipse; 
if ( I gE£fect3 ) goto FS_Err,* 

success ■ ( ^CForceEllipse*) gEf Cect3) -:• Initialize ( 
gMouse, 

FORCE ELL I PS B__D EFAULT_W I DTK , 
FORCE~ELLI PSE~DEFAULT_HEIGHT, 
RSTIFF, // » 
FORCE_ELLI PSB_DEFAULT_STI FFNESS 
RWW, 
RSAT, 

FEELIT_FSTI FF__OUTBOUNDANYWALL , 
f I FEELI T_FSTI FF_ANYWALL , 

//FORCE BLLIPSB_DEPAULT STTFFNESS_MASK, 

FORCE_ELLI PSE~DEFAULT_CLI PPING__MASK, 
FORCE_ELLI PS B~DEFAULT~CENTER_ POINT , 
gEf feet 7 

)i 

if ( t success ) goto FS_Err; 

// Engine Enclosure 
gEngineEnc » new CForceEnclosure; 
if ( ! gEngineEnc ) goto FS_Err; 
success « ((CForceEnclosure*) gEngineEnc) - 
>lnitialize( 

gMouse, 

F0RCE_ENCLOSURB_DEFAULT WIDTH, 
FORCE_ENCLOSURE_DEFAULTJ(E IGHT, 
EST IFF, // - 
FORCE_ELL I PSS_DEFAULT_STI FFNESS 
ESTIFF, 
EWW, 
EWW, 
ESAT, 
BSAT, 

FEEL IT_FSTI FF OUTBOUNDANYWALL , 
/ / FORCE J5LL I PSE_DEPAULT~STI FFMESS_MASK , 

F0RCE_ENCL0SURE_DEPAULT_CL1 PPINGJ4ASK , 
FORCE_ENCLOSURE_DEFAULT_CENTER_P0 1 NT, 
NULL 

); 

if ( ! success ) goto FS__Err f 

// We're okay! 
return TRUE; 



let's cleanup and 



FSJSrr » 

// There were some problems, . 
declare ourselves dead! 

FeelCleanupO ; 
return FALSE; 

) 

BOOL Feelcleanupf void ) 
{ 

if ( gEngineEnc) { gEngineEnc- >Stop ( ) ;delete 
gEngineEnc; gEngineEnc=WULL; 



g Force ; 



if ( gForce ) 

gForce 
if ( gEffectl ) 
gEffectl; gEffectl » NULL; 

if ( gE££ect2 ) 
gEffect2; gE££ect2 - NULL? 

if ( gEffect3 j 
gEffect3; gE£fect3 = NULL; 

if ( gE££ect4 ) 
gE£fect4; gEffect4 » NULL 
if ( gE£fect5 ) 
gEffectS; gEffectS « NULL 
if ( gS££ect6 ) 
gEffect6 ; gEffectS - NULL. 

if ( gE££ect7 } 
gEffect?; gEf£ect7 «= NULL 
if ( gEffectB ) 
gEf feet 8; gE££ectB » NULL; 

if { gEffect9 ) 
gE£fect9; gEffectS * NULL; 

if ( gECfectll) 
gEffeCtll; gEffectll » NULL; ) 

if < gMouse ) { 

delete gMouse; 

NULL; } 

return TRUE; 

\ 



BOOL FeelBeginEf f ect ( short effectNum ) 



{ gForce - >S top() ; delete 

» NULL; } 

{ gEffectl->stop() ; delete 

{ gE£fect2->Stop{) ; delete 

{ gEf£ect3->StopO ; delete 

( gE£fecfc4->stop() ; delete 

{ gEffectS ->stop(> .* delete 

{ gEf fect6->stop<) ; delete 

{ gEffect7->Stop() ; delete 

{ gEf£ect8->Stop() ; delete 

{ gEf£ect9->Stop() ; delete 

{ gE£fectll->Stop<); delete 



gMouse 



{ 



switch ( effectNum ) 
{ 



if ( gEffectl ) 

return gEf £ectl->Start () ; 

break; 

if ( gE££ect2 ) 

return gEf £ect2->Start() ; 

break; 

if ( gE£fect3 ) 

return gEf £ect3 ->Start {) ; 

break; 

if ( gEf feet* ) 

return gE££ect4 ->staxt (1 ; 

break; 

if ( gE£fect5 ) 

return gEffectS ->S tart () ; 

break; 

if { gEffectS ) 

return gEf f ect6 ->Start () ; 

break; 

if I gEffect7 ) 

return gEf fect7 ->Start() / 

break; 

if ( gEffect8 ) 

return gEf fecta ->start () ; 

break; 

if ( gEffectS } 

return gEf fect9->Start{) ; 

break; 

if { gE££ectll ) 

return gEf f ectxi- >Start { J ; 

break; 
break; 



return FALSE; 



BOOL Fee lEndEf feet { short effectNum ) 
{ 

switch ( effectNum ) 
{ 

case li 

if ( gEffectl ) 

return gEf fectl ->Stop() ; 

break; 

case 2.- 

if ( gEf£ect2 ) 

return gEf f ect2 ->Stop< ) / 
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break; 

if { gE£fect3 > 

return gEffecta *>stop{) 

break; 

if ( gEf£eet4 ) 

return gEf £ect4->Stop{) ; 

break ; 

i£ ( gEffecfcS ) 

return gEf f ects - >Stop ( } ; 

break; 

if { gEffectG ) 

return gEf fect6->Stop<) .* 

break; 

if ( gE££ect7 } 

return gEE£ect7->Stop(> ; 

break; 

if ( gEffectB ) 

return gEf f ect8->stop 0 ; 

break; 

if { gEffectS ) 

return gEf f ect9->Stop {} ; 

break; 

if ( gEngineEnc } 

return gEngineEnc- >Stop ( ) ; 

break; 

if ( gEffectll ) 

return gEf fectli->Stop { ) ; 

break ; 
break ; 



return FALSE; 



) 

void FeelEndAllB£fects{ void ) 
{ 

if ( gEffectl ) gEf£ectl->Stop(>; 

if ( gE£fect2 ) gE£fect2->Stop(); 

if ( gEfcect3 ) gE£fect3->StopO; 

if ( gEffect4 } gEff ect4 - >Stop () ; 

if ( gEffect5 ) gEffect5->Stop{) ,- 

if { gEffectS } gE£fect6->Stop<) ; 

if { gEffect7 ) gEf f ect7-*Stop O ; 

if ( gEffecta ) gEf £ect8~;»Stop 0 ; 

if ( gEf£ect9 ) gEf fect9->Stop 0 ; 

if { gEffectll) gEff ectll->Stop () ; 

if ( gForce ) gForce-^Stop () ; 

if ( gEngineEnc) gEngineEnc- >Stop () ; 



long FeelEnclosureEf feet (short effectNum, long left, long 

top, long right, long bottom) 

{ 

// Prepare a rect... 

RECT r * I left, top, right, bottom }; 

// Try doing the enclosure, depending on which 
effect they want. . . 

switch { effectNura ) 



1 



BOOL success; 
case 3t 

if ( ! gB££ect3 ) return FALSE; 
success a 

( (CForceEllipse*)gSffect3) - >ChangeParameters { 
&r, 

force_e ff ect_dont_ch ange , 
force_effect jx)nt_change , 
forcb_£ffect~dont_change , 
force~eppect dont change, 
force~effectj>ont~change , 

< CForceEf feet*) FORCE £FFECT_DONT_CHANGE 

) ; 

if { \ success ) return FALSE; 
return gEf f ect3- ?Start () ,- 
break r 
case 4 i 

if < ! gE£fect4 ) return FALSE; 
success " 

( (CForceEllipse*)gEfeect4) - >ChangeParametero t 
S>r, 

FORCE_EFFECr_OONT_CHANGE , 
FORCE_£FFBCT_DONT_CHANGE , 
FORCE_EFFECr_DONT_aiAWGE , 

fgrce_effectjdont_change , 
force2effect_dont_chamge , 

{CForceEf feet * ) FORCB_EPFECT_DONT_CHANGB 



) i 



if ( { success } return FALSE; 
return gEf f ect4->Start () ; 
break; 
case 10 r 

if ( ! gEngineEnc ) return FALSE; 
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success » 

( (CForceGnclosure*? gEngineEnc) ->change Parameters < 
tr, 

FORCE_E FFECTJDONT_CHANGE , 
F0RCB~BFFECT~D0NT~CHANGE , 

force~effect_dont_ch ANGE , 

F0RCE_E F F ECT_DONT_CH ANGE , 
FORCE EFFECT DONT CHANGE , 
FORCE — EFFECT D0NT_CHANGE, 
FORCE_EPFBCT D0NT_CHANGB, 
FORCE_EFFECT~DONT < CHANGE , 

(CForceEf feet*) FORCE EFFECT DONT CHANGE 



); 



return FALSE; 



if ( I success ) return FALSE; 
return gEngineEnc ->St art <) f 
break; 

// These effects don't use enclosures! 

case It 

case 2 i 

case 5 i 

case 6 t 

case 7t 

case 8 i 

case 9 i 

default i 

return FALSE; 

// Have this just in case 



FeelBeginForce ( long Xdir, long Ydir, long Mag ) 



if { gForce ) 



{ 



long 
{ 

// 
// 
// 
// 
// 
// 
it 
// 
// 

} 



long FeeiEndForce{ void ) 
{ 

// 
// 



POINT myPt « { Xdir, Ydir } ; 
gForce- >ChangeParameters ( 
myPt, 

FORCE__EF f ECT_DONT_CHANGE , 
Mag 

>; 



} 



if ( gForce ) 

return gForce ->Stop() ; 
return 0; 



howtodat.txt 

This file shows an outline of the effects.dat file. 
Everything is a DWORD and describes a parameter for 
the initialization of an effect. 

Here 1 s the order t 

// LASER Periodic 

// ICE Damper 

// METEOR Ellipse 

// DENIM Texture 

// ENGINE Periodic 

J/ RAQUET STRING Grid 

// RAOUET Ellipse (uses Grid) 



Here ' s 


the actual value descriptions 


{in shorthand) » 


LDUR 


LMAG 


LPER 


LOFF 


LPHA 


IVIS 


I SAT 


IVEL 






MSTIFF 


MWW 




MSAT 




DPOSK 


DNEGK 


DPOSS 


DWEGS 


DDEAD 


EDIRX 


EDIRY 


EDUR 


EMAG 


EPER EOFF 




EPHA 








SPOSK 


SNEGK 


SPOSS 


SNEGS 


SDEAI> 


RSTIFF 


RWW 




RSAT 




Here 1 a 


the default 


values* 







// Laser 

DWORD LDUR « 400, LMAG - 4000, LPER - 10, LOPF » 0. LPHA -0; 
// ICE 

DWORD IVIS = -4000, ISAT = 8000, IVEL « 10; 
// METEOR 

DWORD MSTIFF =4000, MWW » 20, MSAT * 8000; 
// DENIM 

DWORD DPOSK - 8000, DNEGK «. 8000, DPOSS » 50, DNEGS « SO, 
DDEAD * 11? 
// ENGINE 

DWORD EDIRX = 1, EDIRY - 1, EDUR-10000, EMAG~4500, 
EPER»20,EOFF = 0, BPHA-1B0; 
// RAQUET STRING GRID 

DWORD SPOSK*3000, SNEGK»3000, SPOSS-OOOO, SNEGS«3000, 

SDEAD=.20; 

// RAQUET ELLIPSE 

DWORD RSTIFF * 2000, RWW » 20, RSAT = 8000; 



Here's the initialization code that uses themt 



70- 



// Create effect I « LASER (PERIODIC SINE {1,0} 750 3023 10 
0 0) 

gEffectl - new CForcePeriodicO ; 
if { t gEffectl ) goto FS^Err,- 

succesB *» ( (CFarcePeriodic*) gEffectl) -=»Initiali2e( 
gMouae, 
GUID^Sine, 

FOftCE_PERIODIC_DBFAULT_DIRECTION, 

LDUR, // « 

F0RCE_PERI0DICj>EFAULTJ3URATtON 

LMAG, // « 

FORCE__P E R IQDI C_D EFAULT_MAGN ITU DE 

LPER, // 
F0RCE_PSRIODIC DEFAULT PERIOD 

LOFF, // = 

F0RCE_PERIQDIC_DEFAULT_OFFSET 

LPKA // = 

FORCE_PERIODIC_DEFAULT PHASE 
) ; 

if ( I success ) goto FS_Err; 

// Cieate effect 2 - ice (damper -looo aooo o -i) 
gEffect2 « new CForceDamper () i 
if { I gEffect2 ) goto FS_Err; 

success - ( (CForceDamper*TgEf fect2) ~:> Initialize* 
gMouae, 
IVIS, // « 

FORCE_DAM PER DEFAULT VISCOSITY 

I SAT, // « 
FORCE_DAMPER_DEFAULT_SATU RATION 

IVEL, // m 
F0RCEJ3AMPER DEFAULT MIN VELOCITY 

FORCE_ E F FE CT_AX I S BOTH 

)f 

if { I success ) goto FS_Err; 

// Create effect 4 « METEOR (ELLIPSE -1 -1 2000 -1 -1 -1 -1 
-1 fl) 

gEffect4 *> new CForceElIipae/ 
if ( ! gEffect4 ) goto FS_Err ; 

success » ( (CForceBllipse* JgEf fect4) ->Initialiee( 
gMouse, 

FORCE^ELLI PSE_DEFAULT_WIDTH , 
FORCE~BLLI PSE~DEFAULTJIBIGHT, 
MSTIFF, // «* 
FORCE_ELLI PSE_DEFA17LT_STIFFNESS 
MWW, 
MSAT, 

SERRA_FSTI FF_OUTBOUNDANYWALL , 
/ / FORCE_ELL I PS EJ5EFAULT ST I FFNESS_MASK , 

FORCB_ELLI PSB~DEFAULT_CLI PPINGJ4ASK, 
FORCE ELLIPSB_DEFAULT_CEWTER_POINT, 
NULL " 

>; 

if ( 1 Buccess ) goto FS_Err; 

// Create effect S = DENIM {CONDITION TEXTURE ???? ) 

gEffectS » new CForceCondition; 

if ( I gEffect5 ) goto FS_Err; 

success = ( (CForceCondition*) gEffectS) - 
initialize ( 

gMouse, 

GUTD_Serra_Texture, 



DPOSK, //PosK 

DNEGK, //NegK: 

DPOSS, //Possat - period in pixels 

DNEGS, //NegSat - period in pixels 

DDEAD, //Deadband - no bump in pixels 



FORCE_EFFECT_AXXS_X, 

FORC£_CONDiriON_DEFAULT CENTER POINT 

); 

if ( I euccess } goto FS_Err; 

// Create effect 6 * MOTOR (PERIODIC SQUARE {l, 1] 10000 
G500 20 0 180) 

gEffectS - new CForcePeriodio ( ) ; 

if ( I gEffecte ) goto FSjsrr; 

success ■ ( (CForcePeriodic*)gEf fect6) ->Initialize ( 





gMouee, 








GUID^Square, 








CPoint(EDIRX, 


EDIRY) , // 




FORCE 


PERIODIC DEFAULT DIRECTION 








EDUR, 


// 




F0RC B_ PE R I OD I C_D£FAULTJDURAT I ON 






*" EMAG, 


// 




FORCE PERIODIC DEFAULT MAGNITUDE 








EPER, 


// 




FORCE_ 


PERIOD IC^DEFAULT PERIOD 








EOFF, 


// 




F0RCE_ 


PERIODI C_D EFAULTJJPFSBT 








EPHA 


// 




F0RCE_ 


PERIODIC DEFAULT PHASE 







> ; 

if ( ! success ) goto FS_Err; 

// Create effect 7 « racquet_grid {condition grid) 
gE£fect7 ■ new CForceCondition; 
if ( I gE£fect7 ) goto FS^Ecrj 
success = ( (CForceCondition*) gEffect7) - 

>Initialize( 

gMouse, 

GUID Serra_Qrid, 
SPOSK, 7/PosK 
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SNEGK, //NegK 
SPOSS, //PoaSat 
SNEGS, //NegSat 

SDEAD, //Deadband - grid spacing in 

pixels 

FORCE_EFFECT_AX I S BOTH, 
FORCE_CONDItT0N DEFAULT CENTER POINT 

>; 

if ( ! success ) goto FS_J2rr; 

// Create effect 3 * RACQUET [ELLIPSE -1 -1 2000 - 
1 -1 -1 -1 -1 8} 

// Make 3 after 7 because 3 is dependent on 7 
gEffect3 » new CForceEllipae/ 
it ( I gEffect3 ) goto FS_Err; 

success - ( {CForceBllipse* JgEf fect3) -initialize ( 
gMouse, 

FORCE_ELLlPSE DEFAULT WXDTH , 
FORCE_ELL I P SE"**D E FAULT HEIGHT, 
RSTIFF, // « 
FORCE^ELL ZP£E_DEFAULT_STI FFNESS 
RWW, 
RSAT, 

S ERRA_FST I F F_OUTBOUN DAN Y WALL , 
/ /FORCE J3LL I PSE DE FAULT_ST I FFNESS__M AS K , 

FORCE~ELL I PSE DE F AULT_CL I P P I NG J4ASK , 
FOUCE_BLLIPSE_DEFAULT_CENTER POINT, 
gEffect7 

) t 

if ( ) success ) goto FS_Err; 
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FeelControlCtlh 

Hif 

1 defined { AFX_FEELCOWTROLCTLJH 7 8ACF7 7 3_5CC1_1 1D1_A8 68_0 06 0 0 

83A2742__INCLUDED ) 
tfdefine 

AFX_FEELCONTROLCTL_H__7BACF773 5CC1 11D1 A86B 0060083A2742 

INCLUDED^ 

«if _MSC_JVER 1000 
Hpragma once 

flendif // _MSC_VER >= 1000 

// FeelControlCtl .h i Declaration of the CFselControlCtrl 
ActiveX Control class. 

/////////////////////////////////////////////////////////// 
// CFeelContcolCtrl » See FeelControlCtl .cpp for 
implementation. 

claBS CFeelControiCtrl i public COleControl 
{ 

DECLARE_DYNCREATE (CFeelControiCtrl ) 

// Constructor 
public* 

CFeelControiCtrl () ; 
// Overrides 

// ClassWizard generated virtual function 

overrides 

// { {AFK_VIRTUAL (CFeelControiCtrl) 
public t 

virtual void OnDraw(CDC* pdc, const CRectfi 
resounds, comet CRectt rclnvalid) j 

virtual void DoPropExchange (CPropSacchange* pPX) ; 
virtual void OnResetState (} ; 
virtual DWORD GetControlFlags ( ) ; 
//}}AFX„VIRTUAL 

// Implementation 
protected « 

-CFeelControiCtrl {) ; 

DECLARE_OLECREATE_EX (CFeelControiCtrl) // ClaBS 
factory and guid 

DECLARE_OLETYPELIB {CFeelContfOlCtr 1 > // 
GetTypelnfo 



UECLARE_PROPPAGEIDS <CFeel Control Ctrl ) // 
Property page IDs 

DECLARE^OLECTLTYPE (CFeelControlCtrl) 
// Type~name and raise status 

// Message maps 

//{{AFXJ1SG (CFeelControlCtrl) 

// NOTE - Classwizard will add and 
remove member functions here, 

// DO NOT EDIT what you see in these 
blocks of generated code \ 
//}}AFX MSG 
DECLARE~MESSAGE_MAP { ) 

// Dispatch maps 

// ( {AFX^DISPATCH (CFeelControlCtrl) 
afx_msg~BSTR GetEf fectl () ; 

afx_mag void SetEC f ectl (LPCTSTR IpszNewValue) 
aExjnBg BSTR GetEf f ect2 () ; 

afx^meg void SetEf £ect2 (LPCTSTR IpszNewValue); 
afx^msg BSTR GetEf £ect3 O ,■ 

a£xjnsg void SetE££ect3 (LPCTSTR IpszNewValue) ,• 
afx~msg BSTR GetEf fect4 () ; 

afx_jnog void SetEf £ect4 (LPCTSTR IpszNewValue}; 
afx^meg BSTR GetEf fectS () ; 

afx_wsg void SetEf feet 5 (LPCTSTR IpszNewValue); 
afxjrasg BSTR GetEf £ect6 () 

afx_mag void SetEf fect6 {LPCTSTR IpseNewValue) ; 
afx_mag long DoEfEect (short ef f ectNmn) ; 
aExjnsg long StopEf feet (short effectNutn) ? 
a£x_mBg void StopAllO; 

a£x_msg long SetEf feet (Bhort eEfectNum, LPCTSTR 
ef f ectParams) ; 

a£x_msg long DoEnclosureEf Eect (short effectNum, 
long left, long top, long right, long bottom) 

afx mag long Apply Force (long Xdir, long Ydir, long 

Mag) ,- 

afx_msg long StopForceO; 

//) }AFX DISPATCH 

D ECLARE~D I S P ATCK^MA P ( ) 

// Event maps 

// { {AFX_EVENT ( CFee IControlCtr 1 > 
//} )AFX_EVENT 
DECLARE^EVENT_MAP ( ) 

// Dispatch and event IDs 
public j 

enum ( 

//{(AFX_DISP_ID (CFeelControlCtrl) 
dispidEf fectl « 1L, 
dispidEE£ect2 <* 2L, 
diapidE£fect3 » 3L, 
dispidE£fect4 « 4L, 
dispidEffectS » 5L, 
dispidS£fect6 » 6L, ' 
displdDoEffect » 7L, 
diapidStopEffect - 8L, 
dispidStopAll * 3L, 
dispidSetBffect « 1QL, 
dispidDoEnclosureEf feet «= 11L, 
dispidApplyForce » 12L, 
dispidStopForce = 13L, 
//}}AFX DISP ID 

); 

b 

// { (APX_INSERTJL0CATI0N} } 

// Microsoft Developer Studio will insert additional 
declarationa immediately before the previous line. 



flendif // 

lde£i ned ( APX_FESLCONTROLCTL H__ 
83A2742__INCLUDED) 
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FeelControlCtlxpp 



// FeelControlCtl.cpp i Implementation of the 
CKeelControlCtrl ActiveX Control class. 

^include "Btdafx.h" 
B include <objsafe.h> 
ft include <comcat.h> 
^include "FeelControl .h" 
flinclude "FeelControlCtl .h" 
^include "PeelControlPpg.h" 
include "FeelForces .h" 

I1RESULT CreateComponentCategory( CATID catid, WCHAR* 
catDescription ) ; 

H RESULT RegiBteiCLSlDlnCategory( REFCLSIO clsid, CflTln catid 
)? 

HRESULT UnregisterCLSIDInCategory( REFCLSID clsid, CATID 
catid >; 

tflfdef DEBUG 
»de£ine~new DEBUG JlBW 
Ifundef TKIS^FILE ~ 
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static char THlS_FILEi] » __FILE__; 
ftendif 

IMPLEMENT_DYHCREATE (CFeelControlCtrl, COleControl) 

/////////////////////////////////////////////////////////// 
// Message map 

BEGIN MESSAGEJ1AP (CFeelControlCtrl, COleControl) 

//{ {AFX_MSG_MAP( CFeelControlCtrl) 

// NOTE - ClassWizard will add and remove message 
map entries 

// DO NOT EDIT what you see in these blocks of 
generated code f 

//}}AFXJdSG„MAP 

ONjDLEVERB <AFX_IDS_VERB_PR0PERT1ES, OnProperties) 
END_MESSAGE_MAP ( ) 

/////;//y////////////////////////////////////////////////// 

// Dispatch map 

BEGIN DISPATCH_MAP (CFeelControlCtrl, COleControl) 
//({AFX DISPATCH MAP (CFeelControlCtrl) 
OISP_PROPERTY_Ex7cFeelControlCtrl, "E£fectl\ 

GetEf EectL, SetEf fectl, VT_BSTR) 

DISP_PROPERTV_EX (CFeelControlCtrl , "Effects » , 
GetEf fect2, SetSEfect2,~VT_BSTR) 

DISP_PROPERTY_EX (CFeelControlCtrl , »E£fect3" , 
GetEf feet 3, SetEf feet 3, *~VT_BSTR) 

DISP_PROPERTY_EX (CFeelControlCtrl, "E£fect4 w , 
GetEf fect4, SetEf fect4, VT_BSTR) 

DISPJPROPERTrJSX (CFeelControlCtrl, "Effects", 
GetEf fectS, SetEf feet 5, ~~VT_BSTR) 

DISP PROPBRTYJBX (CFeelControlCtrl, "E£fect6»' # 
Get Effects, SetEf feet S, VT_BSTR) 

DISP FUNCTION (CFeelControlCtrl, "DoEffect", 
DoEffect. VT 14, VTS 12) 

DISP FUNCtTon (CFeelControlCtrl , "StopEf feet" , 
StopEffect, VT~I4, VTS 12) 

DISP FUNCTION (CFeelControlCtrl, "StopAll", 
StOpAll, VTJEMPTY, VTS NONE) 

DISP JUNCTION (CFeelControlCtrl, "SetEf £ect M , 
SetEf feet, VT_I4, VTS_12 VTSJ3STR) 

DISP FUNCTION (CFeelControlCtrl, 
"DoEnclosureEffect", DoEnclosureEf feet, VT_I4, VTS_I2 VTS_I4 
VTS__I4 VTS_I4 VTS_I4) 

DISP_FUNCTION (CFeelControlCtrl, "Apply Force" , 
ApplyForce, VT~I4, VTS_I4 VTS__I4 VTS_I4) 

DISP_FUNCTION (CFeelControlCtrl, "StopForce" , 
StopForce, VT_I4 r VTS_HONE) 

/ / } } AFX__D I S PATCHJ4 A P 
END_DISPATCH MAP() 



/////////////////////////////////////////////////////////// 
// Event map 

BEGIN EVENT_MAP (CFeelControlCtrl, COleControl) 
// { {AFX_EVENT_MAP (CFeelControlCtrl) 
// NOTE - ClassWizard will add and remove event 

map entries 

// DO NOT EDIT what you Bee in these blocks of 
generated code I 

//}}APX_EVENT_MAP 
END_EVENTJ4AP() 



/////////////////////////////////////////////////////////// 
// Property pages 

// TODOi Add more property pages as needed. Remember to 
increase the count' 

BEGIN PROPPAGE IDS (CFeelControlCtrl, 1) 

~ PROPPAGEID(CFeelControlPropPaget iguid) 
END_ PROP PAGE IDS (CFeelControlCtrl) 



/////////////////////////////////////////////////////////// 
// Initialize class factory and guid 
IMPLEMENT_OLECREATE_EX (CFeelControlCtrl, 
" FEELCONTROL . FeelCont rolCtrl . 1 " , 

0x5dfdd466, 0xBb37, Oxlldl, OxaB, 0x68, 0, 0x60, 
0x8, 0x3a, 0X27, 0X42) 



//////////// /////////////// //////////////////////////////// 
// Type library ID and version 

ZMPLEMENT_OLETYPfiLIB (CFeelControlCtrl, _tlid, ^wVerMajor, 
_wVerMinor) 



/////////////////////////////////////////////////////////// 
// Interface IDs 

const I ID BASED CODE I ID DFeelControl * 

{ 0x78acE765, OxSccl, Osclldl, { 0xa8, 
0X68, 0, 0x60, 0x8, 0x3a, 0x27, 0x42 } }; 
const IID BASED_CODE I ID_DPeelControl Events » 

{ 0K78acf766. OxSccl, OxLldl, ( 0xa8, 
0x6fl, 0, 0x60, 0x8, 0x3a, 0x27. 0x42 } } ; 



/////////////////////////////////////////////////////////// 
// Control type information 

static const DWORD BASED CODE _dwFeelControlOleMiec 
OLEMISC_IWVlSlBLEATRUNTIME j 
OLEM I SC_ACTI VATEWHENV1S I BLE j 
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0LEM1SC IGNOREACTIVATEWHENVTSIBLE \ 
OL EM I SC~ S ETCL I ENTS I TE FI RST | 
OLBMISC~INSIDEOUT j 
OLEMISC^CAHTLINKINSIDE | 
OLEMISC_RECOMPOSEONRSSJZS; 

IMPLEMENT_OLECTLTYPE (CFeelControlCtrl, rDS_FEELCONTROL. 
^dwFee IConfc rololeMisc) 

//////////////////////////////////////////////////////////J 
I) CFeelControlCbrl i iCFeelControlCtriFactoryi lUpdateRegistry 

// Adds or removes system registry entries for 
CFeelControlCbrl 

BOOL 

CFeelControlCtrl t t CFeelCont rolCtrlFactory * lUpdateRegistry {BO 

OL bRegister) 

{ 

// TODO? Verify that your control follows 
apartment -model threading rules. 

// Refer to MFC TechNote 64 for more information . 

//If your control does not conform to the 
apartment -model rules, then 

// you must modify the code helow, changing the 
6th parameter from 

// afxRegApartmentThreading to 0. 

if (bRegister) 

{ 

CreateComponentCategory ( CATlD_Control , 

L'»ConbrolB« >,* 
RegisberCLSIDInCategory( m_clsid, 

CATXD_Control ) ; 

CreateComponentCategory { 
CATro_SafeFor Initializing, 

L"Controls safely initializable from persistent data" } 

RegisterCLSIDInCategory< m_clsid, 
CATlD_SafeForlnitializlng ); 

CreateComponentCategory ( 
CATlDjSafeForScripting, 

L"Controla that are safely scriptable" }; 

RegisberCLSIDInCategory{ m__clsid, 
CATID__Sa£eForScripting ) ; 

CreateComponentCategory ( 
CAT I DJ?e r s i s t sTo J? rap e r t yBag , 

L"Supporb initialize via PereistPropertyBag" }; 

RegisterCLSIDInCategory ( m__clsid, 
CATIDJPersistsToPropertyBag ) ; 

return Af xOleRegisterControlClass ( 
AfxGetlnebanceHandleO , 
m_clsid, 
mJLpszProglD, 
IDS_FEELCONTROL, 
IDB_F£ELC0NTR0L, 
afxRegApartmenbThreading, 

dwFeelConbrolOleMisc, 
Itlid, 
_wVerMajor, 

wVerMinor) f 

) 

else 
I 

UnregiaberCLSIDInCategory { in_clsid, 

CATlD_Conbrol )i 

• ~ UnregisterCLSIDInCategory ( m^cleid, 

CATID_PerBiBtBToPropertyBag } ; 

UnregisterCLSIDInCategory { m_clsid, 
CATID_Sa£eForScripting } ; 

UnregisterCLSIDInCategory ( m_clsid, 
CATID_SateForInifcializing ) 

return AfxOleUnregisberClasB (m_clsid r 

m_lpBzProgID) ; 

1 

H III f 1/ 1 II 1 1 /I III III 1 1 III 1 11/ HI III/ II I III I II I /I ll/l /II 11/ 
// CFeelControlCttlt iCFeelControlCtrl - Constructor 

CFeelCont roictrl t :CFeelControlctrl ( ) 
f 

InitializelIDs(&IID_DFeelControl, 
&I ID_DFeelControlEvents) ; 

// TODO» Initialize your control's instance data 

here. 

FeelSetup ( AfxGetlnstanceHandle ( ) , 
AfxGetMainWndO ->m hWnd > 
) 

/////////////////////////////////////////////////////////// 
II CFeelControlCbrl i i -CFeelControlCbrl - Destructor 



CFeelContxolCtrl > i -CFeelControlCtrl ( ) 

// TODO< Cleanup your control's instance data 
FeelCleanup< ) ; 



\ 

here. 



I II I fill If //l/ll/UI/f l/l// l/l////////// ////////I)/ /////!// 
// CFeelControlCtrl « lOnDraw - Drawing function 

void CFeelCont rol Ctrl * »OnDraw{ 

CDC* pdc, conat CRectfc 
rcBounds, const CRectfc rclnvalid} 
{ 

// TODO: Replace the following code with your own 
drawing code. 

pdc- >FillRect (rcBounds , 
CBrush* »FromHandle( (HBRUSH) GetStOCkObject (WHITg_BRLfS«J ) J ; 

pdc- >Bllipse (rcBounds) ; 

} 

ii////////iini/i/ii/iiiii/i///in/i//iuu /iiiiiiiuiiiiu 

II CFeelControlCtrl » » DoPropExchange ~ Persistence support 

void CFeelControlCtrl i » DoPropExchange (CPropExchange* pPX) 
{ 

ExchangeVersion (pPX, MAKELONG ( _w VerMinor , 
_wver Major) ) ; 

COleCont rol % Do Prop Exchange (pPX) ; 

// TODO » Call PX_ functions for each persistent 
custom property, 
> 

I///IIII/II/IIIIII////I////I//////I//IIIIII////III/II///I/I 
// CFeelControlCtrl i »GetControlFlags - 
// Flags to customize HFC's implementation of AcbiveX 
conbrols . 

// For informabion on using these flags, please see MFC 
technical note 

// #nnn, "Optimizing an ActiveX Control". 
DWORD CFeelControlCtrl i »GetControlFlags ( ) 
( 

DWORD dwFlags - COleControlt »GetConbrolFlags 0 ; 
// The control can acbivabe without creating a 

window. 

// TODOi when wribing bhe control's message 
handlers, avoid using 

// the m_hWnd menJoer variable 

without first checking that its 

// value 1b non-NULL. 

dwFlags J» windowlessAcbivabe; 

// The control can receive mouse notifications 
when inactive. 

// TODO » if you write handlers for WM_SETCuRSOR 
and WMJ40USEMOVE, 

// avoid using the mjiwnd member 

variable without firsb 

// checking that its value is 

non-NULL. 

dwFlags }- pointer inactive/ 
return dwFlags / 

) 

/// I///I/////I 7 /// ///// '//// 'I ///////// '1 /////// 7/1/// 1 /J///// 
// CFeelControlCtrl i tOnReeetSbate - Reset control to default 
state 

void CFeelControlCtrl i lOnReuetState () 
{ 

COleControlx sOnResetStateO ; // Resets defaults 
found in Do PropEx change 

// TODO* Reset any other control state here. 

} 

/////////////////////////////////////////////////////////// 
// CFeelControlCbrl message handlers 

long CFeelControlCtrl t jDoEffect( short effectNum) 



{ 



} 



// TODO« Add your dispatch handler code here 
return FeelBeginEf f ect ( effectNum ) ,- 



long CFeelControlCtrl; fStopEf feet (short effectNum) 



// TODO i Add your dispatch handler: code here 
return FeelEndEf Eect ( effectNum ) ; 



void CFeelConbrolCtrl t .StopAll { } 



I 



// TODOt Add your dispatch handler code here 
FeelEndAllEffectsO ; 



long CFeelControlCtrl » »ApplyForce (long Xdir, long Ydir, long 
Hag ) 



} 



return FeelBeginForce{ Xdir, Ydir, Mag ); 



long CFeelControlCtrl » iStopForcet) 
{ 

return FeelEndForceO ; 

} 
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long CFeelControlCtrl t .DoBncloaureEf feet (short effectNum, 
long left, long top, long right, long bottom) 

// TODOt Add your dispatch handler code here 
return FeelEnclosureEf feet ( effectNum, left. Lop, 
right, bottom ); 



long CFeelControlCtrl. .SetEf feet (short effectNum, LPCTSTR 
effectParams) 

(f TODOi Add your dispatch handler code here 

return 0; 

BSTR CFeelControlCtrl. .GetEf fectlO 
CString strResult; 

fj TODO* Add your property handler here 
return strResult. AllocSysString* ) ,• 

•void CFeelControlCtrl. i SetEf feet 1 (LPCTSTR lpszNewValue) 
// TODOt Add your property handler here 
SetModlfiedFlagO ; 

BSTR CF&elControlCtrl. tGetEf £ect2 < ) 
CString strResult; 

// TODO. Add your property handler here 
return strResult .AllocSysString 0 ; 

void CFeelControlCtrl i .SetEf feet 2 (LPCTSTR lpszNewValue) 
// TODO. Add your property handler here 
SetModifiedFlagO ; 

BSTR CFeelControlCtrl i . GetEf fect3 (} 
CString strResult; 

// TODOx Add your property handler here 
return strResult .AllocSysString () ; 

void CFeelControlCtrl: .SetEf £ect3 (LPCTSTR lpszNewValue) 
// TODOt Add your property handler here 
SetModifiedPlagO ; 

BSTR CFeelControlCtrl. .GetEf fect4() 
CString strResult; 

// TODOt Add your property handler here 
return strResult . AllocSysString {) ; 

void CFeelControlCtrl. i Set Effect 4 (LPCTSTR lpszNewValue) 
// TODO: Add your property handler here 
SetModifiedFlagO ; 

BSTR CFeelControlCtrl. .GetEf £ect5() 
CString strResult; 

// TODOt Add your property handler here 
return strResult, AllocSysString 0 ; 

void CFeelControlCtrl. .SetEffectS (LPCTSTR lpszNewValue) 
// TODO. Add your property handler here 
SetModifiedFlagO ; 

BSTR CFeelControlCtrl. .GetEf fect6 ( ) 
CString strResult; 

// TODO. Add your property handler here 
return strResult .AllocSysString ( ) ; 

void, CFeelControlCtrl t .SetEf fect6 (LPCTSTR lpszNewValue) 
// TODO. Add your property handler here 
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SetModif iedFlag {) ; 

} 

HRESULT CreateCoroponentCa tegory ( CAT ID catid, WCHAR* 
catDescription ) 
.{ 

ICatRegister* per » NULL; 

HRESULT he « S_OK; 

// Create an instance of the category manager 
hr - CoCreatelnstancef 

CLSID_StdComponentCategoriesMgr, 

NULL, ~* 

CLSCTX_ MPROC_SERVER , 
IID^ICatRegister, 
(void**) &pcr 
); 

if (FAILED (hr)). 

return hr; 

CATEGORY I N FO cat info; 
catinfo. catid * catid; 

catinfo.lcid « 0x0409; // English locale ID in hex 

int len * wcslen( catDescription ) ; 

■wcsncpy{ catinfo. ezDescription, catDescription, 

len ); 

catinfo. szDescriptiontlenl « *\0'; 

hr ■= pcr->KegisterCafcegories( 1, fccatinfo ); 

por->Release() ; 

return hr ; 

} 

HRESULT RegisterCLSlDlnCategoryfREFCLSID claid, CATID catid) 

ICatRegister* per =« NULL; 
HRESULT hr » SJ5K; 

// Create an instance of the category manager 
hr » CoCreateinBtance( 

CLS ID_S tdComponen tCategor iesMgr , 

HULL, 

CLSCTX^INPROC.SERVER, 

UD__ICatRegieter, 

(void**)tpcr 

); 

if (SUCCEEDED (hr) ) 
{ 

CATID rgcatidCU ; 
rgcatidtOJ » catid; 

hr « pcr->RegisterClassImplCategoriea( 

clsid, 1, rgcatid )/ 
) 

if (per 1* NULL ) 

per- i-Re lease () ; 

return hr; 

} 

HRESULT UnregisterCLSIDInCategory( REFCLSID clsid, CATID 

catid ) 

{ 

ICatRegister* per = NULL/ 
HRESULT hr * S_OK; 

// Create an instance of the category manager 
hr =* CoCreateInstance{ 

CLSID_SfcdCojnponentCategoriesMgr, 

NULL, 

CLSCTX INPROC_S£RVER, 

IID_ICatRegieter, 

(void**)tpcr 

); 

if (SUCCEEDED (hr) } 

t 

CATID rgcatid [1] ,* 
rgcatid to 3 » catid; 

hr « pcr->UnRegisterClassImplCategories ( 

claid, 1, rgcatid ) ; 
} 

if { per 1* NULL ) 

per- >Release O ; 

return hr; 

} 



FeelControlPpgJa 

Jdef ined (AFX_FESLC0NTR0LPPG_H__78ACF77;>_SCCl_UDl__Aa 68^00600 

83A2742 INCLUDED^) 

#def ine 

AFX_FEELCONTROLPPGJJ 78ACF775_5CC1_11D1_A86 8_0060083A2742__ 

INCLUDED^ 

|Hf _MSCJVER >= 1000 
^pragma once 

Jfendif // _MSC_VER >* 1000 
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// FeelControlPpg.h i Declaration of the 
CFeelControlPropPage property page class. 

///////// ////////////////////////////////////////////////// 
It CFeelControlPropPage i See FeelControlPpg. cpp .cpp for 
implementation , 

class CFeelControlPropPage i public COlePropertyPage 
{ 

DECLARE J) YNCREATE (CFeelControlPropPage) 
DBCLARE~OLECREATE_EX (CFeelControlPropPage) 

// Constructor 
public x 

CFeelControlPropPage 0 ; 

// Dialog Data 

// { {AFX DATA (CFeelControlPropPage) 

enuui { IDD « IDD_PROPPAGE_FEELCONTROL }; 

// NOTE - ClassWizard will add data 

members here, 

// DO NOT EDIT what you aee in these 
blocks of generated code ! 
//}}AFX_DATA 

// Implementation 
protected* 

virtual void DoDataExchange (CDataExchange* pDX} ; 
// DDX/DDV support 

// Message maps 
protected; 

// { { AFX_MSG (CFeelControlPropPage) 

// NOTE - ClassWizard will add and 
remove member functions here. 

// DO NOT EDIT what you see in these 
blocks of generated code I 
//}}AFX_HSG 
DECLAREJ4ESSAGE_MAP ( ) 

h 

// { ( afx__insert_location) } 

// Microsoft Developer studio will insert additional 
declarations immediately before the previous line. 

ftendif // 

» define d(AFX_FEELCONTROLPPG_H 78ACF775_SCC1_11D1_A9 68_O06OO 

83A274 2 INCLUDED) 



FeelControlPpg.cpp 

// FeelControlPpg.cpp j Implementation of the 
CFeelControlPropPage property page class. 

fiinclude "stdafx.h" 
^include "FeelControl .h" 
^include "FeelControlPpg. h" 

f|i£def DEBUG 
ffde£ine~new DE8UG_NEW 
ttundef THIS_FILE 

static char THIS_FILE[] «= __FIL8_? 
ttendif 

IMPLEMENT_DYNCR£ATE ( CFeelControlPropPage , COlePropertyPage) 

////////////////////////////////////////////////////////// 
// Message map 

BBGIN_MESSAGE_MAP (CFeelControlPropPage, COlePropertyPage) 
//{{AFX_MSG HAP (CFeelControlPropPage) 
// NOTE - ClassWizard will add and remove message 

map entries 

// DO NOT EDIT what you see in these blocks of 
generated code i 

//}}AFX MSG_MAP 
EHD_MESSAGE_MAP ( ) ~ 

iiwtmuummunmiunuiiuittHUUimtmtitt 

// Initialize class factory and guid 

IM PLEKENT_OLECREATE_EX i CFee IConfcrol PropPage , 

"FEEiiCONTROL.FeelControlPropPage. 1" , 

0x78ac£767, 0x5CCl, Ojclldl, 0xa8 , 0x68, 0, 0x60, 
Oxfi, 0x3a, 0x27, 0x42) 

// t/tt/tt ///////// tt/t/t //////it j/zj/j// J//////// /t/ti tut 

//CFeelControlPropPage* jCFeelControlPropPagePactory s .UpdateR 
egistry - 

// Adda or removes system registry entries for 
CFee ICont rolProp Page 

BOOL 

CFeelControlPropPage! iCFeelContralPropPageFactory : >UpdateReg 
istry(BOOL bRegister) 

if (bRegister) 

return 

AfxOleRegisterPropertyPageClass(AfxGetlnstanceHandle() , 

m_clsid, IDS_FEELCONTROL_PPG) ; 

else 



return AExOleUnregisterClass (m_cloid, 

NULL) / 
} 

(/////// /(((////////(//////it////////////////////////////// 
// CFeelControlPropPage » i CFeelControlPropPage - Constructor 

CFeelControlPropPage , t CFeelControlPropPage ( ) « 

COlePropertyPage (IDD, IDS FEE LC0NTROL_P PG CAPTION) 

{ 

// { {AFX_DATA_I NIT (CFeelControlPropPage) 

// NOTE » ClassWizard will add member 
initialization here 

// DO NOT EDIT what you see la these blocks of 
generated code I 

/ / } } AFX_DATA__ I N I T 



/////////////J/J/////////////////////////////////////////// 
// CFeelControlPropPage t i DoDataExchange - Moves data between 
page and properties 

void CFeelControlPropPage i i DoDataExchange (CDataExchange* 
pDX) 

// { {AFX_DATA_MAP( CFeelControlPropPage) 

// NOTE: ClassWizard will add DDP, DDX, and DDV 

calls here 

// DO NOT EDIT what you see in these blocks of 
generated code ! 

//}}AFX_DATA_MAP 

DDP Postprocessing (pDX) 

1 

it ////!///////// //////}/ /////////////////I ////////////I f/H 
( I CFeelControlPropPage message handlers 



. Resource.h 

// { {NOJDEPJSNDENCIES } } 

// Microsoft Visual C++ generated include file. 



// Used by FeelControl .rc 
fldefine IDS_FEELCONTROL 1 
« define lDS~FEELCONTROL_PPG 2 
^define IDS_FEELCONTROL__PPG_CAPTION 200 
« define IDD_PROPPAGB_FEELC0NTROL 200 
Hdefine I DB_FE ELCONTROL 1 
« define _APS_NEXT_RES0URCE_VALUE 201 
ff define APS_NEXT C0NTR0L_VALUE 201 
ft define ~APS_NEXT~SYMED_VALUE 101 
ftdefine APS NEXT~*COMMAND_VALUE 32768 



StdAfx.h 

I def ined ( AFX_STDAFX_H_7 8 ACF7 SA_5CC1JL 1D1JV8 6 8 J) 0 6 0 08 3 A2 74 2_ 
_INCLUDEDj 
#def ine 

AFX_STDAFX__H 7aACF76A_5CCl_1101_A868_00600B3A2742_INCLUDED 

8 if _MSC_VER >= 1000 
fipragma once 

tfendif // J4SC_VER >» 1000 

// stdafx.h i include file for standard system include 
files, or project specific include filea that are used 
frequently, but are changed infrequently 

ftdefine VC_EXTRALBAN // Exclude rarely -used stuff 

from Windows headers 

^include <afxctl.h> // MFC Bupport Cor ActiveX Controls 

// Delete the two includes below if you do not wish to use 
the MFC database classes 

^include <afxdb.h> // MFC database classes 

#include <afxdao.h> // MFC UAO database classes 

// { {AFX I NS ERT_LOCAT I ON) } 

// Microsoft Developer Studio will insert additional 
declarations immediately before the previous line, 
ffendif // 

{defined (APX_STDAFX H__78ACF76A_5CC1_11D1_A868_0060083A2742_ 

_INCI,UDED_) 



SldAfxxpp 

// stdafx.cpp i source file that includes just the stnd 
includes 

// stdafx.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type inEormation 

« include "stdafx.h" 
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APPENDIX C 



Spring.htm —Spring demo, FIG. 13a 



<html><head:> 

<TITLE> Compress The Spring</TITLE> 

<style> .myStyle { font- family: verdana? color* white } 
</style> 

<SCRIPT FOR-wlndow. EVEmv»onload" LANGUAGE-" JavaScript "> 

document. onmouaemove » compress; 
</SCRIPT> / 

<SCRIPT lang^age^'JavaScript"* 

var- springForceFlagl » false; 
var springForceFlag 2 - false; 
var springForceFlag3 » false; 

vac theSpringKl - 100QO; 

var theSpringK2 « 6000; 

var theSpringK3 - 2500; 

var previouaY ■ 10 000; 

function dospring( springDiv, springing, 
springForceFlag. theSpringK) 
{ 

var xval » event ^clientX; 
var yval » event. clientY; 
var minHeight; 
var minTop; 

// Check if we're touching spring 
if ( (xval > 
(springDiv. of f setLef t+springimg .of fsetLeft) ) && 
(xval «? 

(apringDiv.of EaetLef t+springlmg .off setLeft+springlnig.of fsetW 
idth)) ) 

{ 

minHeight - 

springDiv . ot EsetHeight/3 ; 

minTop - springDiv. of fsetTop + 
apringDiv.off setHeight - minHeight; 



springDiv .of faetTop) 



(springForceFlag ) 



if ( {yval > 

(yval < minTop) ) 
{ // in top 2/3 of spring 
if ( 

{ 



l£ ( (yval 

< apringDiv.of fsetTop+ (apringDiv.of f setHeight / 3)) || 

(previouaY < apringDiv.off aetTop+ (apringDiv.off setHeight / 
3)) ) 

( // in start Bpring zone 
springForceFlag » true; 

DynaroicObject . SetSpringKf theSpringK ); 
DynamlcObject - Star tSpring ( event . screenY- 
(event .clientY- springDiv. style. pixelTop) ) ; 

) 

if (springForceFlag) 
{ 

springlmg. style. top » (yval -springDiv. of fsetTop) + 

»px« ; 

Bprlnglmg. style. height - 
(BpringDiv.of faet7'op+ springDiv. of fsetHeight-yval) + "px"; 

1 

else 

if ( yval >= minTop ) // 
springDiv . of f eetTop+spr i ngDiv . of f setHeight 

{ // below 1/3 of spring 

if ( springForceFlag 



) 



{ 



springlmg. style, top •> f minTop- springDiv .of fsetTop) 
+ "pit"; // (springDiv .oEfsetHeight- 1) + "px" ; 

springlmg. style. height » rainHeight + "px" ? // i + 

"px" ; 

} 

) 

else 

{ // above spring 

springlmg .style . top 

- 0 + "px"; 

springlmg. style. height - springDiv. of f setHeight + 

"px" ,• 

if ( springForceFlag 



) 



springForceFlag => false; 
DynamicObject .EndSpring () ,■ 



apringDiv.of f setHeight + "px"? 



false? 



} 

} 

else 

{ // left or right of spring 

springlmg. style. top « 0 + 



springlmg. style. height » 

t 

if ( springForceFlag ) 

springForceFlag 



DynamicOb j ect . EndSpring ( ) ; 

) 

} 



return BpringForceFlag; 



function compress {} 
I 

BpringForceFlagl « dospringdjpringDivl, 
spring Imgl, springForceFlagl, theSpringKl); 

springlmg! . style .width- "144PX* 1 ; 

springForceFlag2 - dospring(springDiv2, 
springlmg2, aprlngForceFlag2, theSpringK2) ; 

springlmg2 .style. width- " 96px 9 ; 

springForceFlag3 - dospring(springDiv3 , 
springlmg3, springForceFlag3 ( theSpringK3) ; 

epr inglmg3 .style. width« M 72px" ; 

previouaY » event .clientY; 

} 

</script> 
</head> 

<BODY TEXT«"f|O0O000" BGCOLOR-" fJFFFFFF" LINK*" flFF0000 u 

VLINK*'«#80O08O fl ALINK«"ifO0OOFF" 

BACKGROUND a" image b \ba ckgr ound, jpg"> 

< CENTERxTABLE > 

<TR> 

<TDx/TDxTD> 

<CENTERxIMG SRC- » iroages\logo2_red.gif" HEIGHT- 90 

WIDTH»162x/CENTBR> 

</TDxTOx/TD> 

<TD> 

<CENTERxBa.<FONT SIZE-+2>Compress The 
Springs-: /FGNTx/Bx/CENTER> 
</TDxTDx/TD> 

<TDxIMG SRC- " images \mouse .gif " HEIGHT~144 WIDTH*246x/TD> 

<TDx/TD> 

</TR> 

</TABLE> 

<CENTER> 

<HR WIDTH-" 10 0%*xBR:> 
</CENTER> 

<CBNTERxDIV ID«DEBUGINFO> </DrVx/CENTER> 

<0BJECT ID=" DynamicObject" WIDTH-0 HEIGHT-0 

CLASS I D» " CLS ID : EC2 96EE6 - 8 3 6C- 1 1D1 - A8 6 8 - 006 0 0 a 3 A2 7 4 2 ■ 

CODEBASE™ "DynamicControl -CAB#version-2, 0, 0, 0":> 

<yOBJECT> 

<CENTER> 
<div 

id=springDivl 

b ty 1 e=» "position i absolute ; le£ti!2Q; topi 210; 
widthil44; height tl92; overf low i clip; " 
> 

<img id«springlmgl atyle*"position fabsolute; 
lefttO; top«0;z-indext-l; 1 ' srce" images\springl.gif «> 
<ydiv> 

<div 

id»springDiv2 

style="positioniabBolute; lefti410; topi274; 
width i 96/ height i 12 8; overf lowtclip; " 
> 

<img id=springlmg2 style*"poaition}absolute; 
lefttO; topi 0; z- index »-!;" src«"images\Spring2 . gif "> 
</div> 

<div 

ld=springDiv3 

styles "positions absolute; left*645; top»306; 
width 1 72; height 1 96; overf lows clip; « 
> 

<img id-springlmg3 style* "position t absolute; 
lefttO; topt0;2-index»-l; n src«" images\Spring3 .gif "> 
</div> 
</CENTER> 

<div style* "position?absolute; left i 10; topx430;" > 
< CENTER> 

<BVJTT0N TYPE= " BUTTON" TITLE* "Back" 

LANGUAGE- "JavaScript «' 
onmouseup-" window. navigate ( 'wa2.htm' ) " 
> 

Back 

</BUTT0N> 

<BUTT0N TYPE>="BLnTON" TITLEa "Next" 

LANGUAGE^" JavaScript" 
onmou s e up =" window. navigate ( 'pop. htm' ) " 
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Next 

</ BUTTON > 
</CEUTER> 

<CENTBR><P> 

<HR WlDTH-"lO0%"xBRxIxFONT SIZE»-l>Eeelit@iminerBe.cosn<BR> 
Copyright (c) 1996-1998, Immersion 
Co rpor a t i o n< / FONT> </!><■/ Px /CENTER > 
</div> 

</bady> 
</html> 



pop. htm — Ball popping demo, FIG. 13b 

<htmlxhead> 

<TITLE>Pop The Ball</TITLE> 

<atyle> .myStyle { font-family i verdana; color »white } 
<:/Btyle> 

<SCRIPT language-VBScript > 
//function window onload {) 
// initialize!) 
//end function 
</SCRlPT> 

<SCRIPT FOR- window EVENT- " onload" LANGUAGE* "JavaScript M s. 
document . onmousemove » compress,' 

</SCRIPT> 

< SCRIPT language-" JavaScript"> 

var nerfForceFlag « false? 
var nerf Popped Flag » false; 
var poppingFactor - 0.60| 
var theBallK - 10000 f 
var previousY « 10000; 

function compress {) 
{ 

var xval * event .clientX; 
var yval * event .clientY; 



// Nerf 
// 

if { ! nerf PoppedFlag ) 
{ 

// Check i£ we're touching the nerf 
if { (xval > 
(nerfDiv.offsetLeft+nerflmg.offeetLeft) ) 

{xval < 

( nerf Div . of f setlieft+nerflrog .off setLef t+nerf Img . of f setWidth) ) 
> 

{ 

if ( (yval > 

nerf Div, of f aetTop) 

(yval < 

(nerfDiv.offsetTop^nerfDiv. offsetHeight) ) ) 

if ( (yval 

< nerfDiv. of fsetTop+tnerfDiv. offsetHeight / 3)) || 
(previouBY < nerf Div .of EaetTop* (nerf Div. of f setHeight / 3) J 

> 

{ // in 

start spring zone 

if ( ! nerf ForceFlag ) 
( 

nerf ForceFlag - true/ 
DynamicObject.SetSpringK< theBallK >; 
DynamicObject .StartSpring< event . screenY- 
levent.clientY-nerfDiv. style. pixelTop) ) ; 



if ( 

nerf ForceFlag ) { 

if ( yval > 

(nerf Div. off setTop* (nerf Div. of I setHeight+poppingFactor) ) J 
{ 

PopS ound. Run () ? 
DynamicObject .EndspringO t 
// DynamicObject. Pop () 

nerf ling, style. height « (51) + "px"? // 51 * 
nerfpop.gif height 

ne rf Img. style. top * (nerf Div .of f setHeight- (51)) 4 

"px"; 

// Change Image 

nerf img. arc » "image sWnerfpop.gif " ? 
nerf PoppedFlag * true/ 
nerf ForceFlag * false; 
} 

else 
{ 

nerf Iwg. style. top = (yval-nerfDiv .off setTop) + 

"px" ; 

nerf img. style. height - 
(nerf Div. of fsetTop+nerf Div, offsetHeight -yval) + "px"; 



else 

i£ ( yval 

{nerfDiv.of fisetTop+nerfDiv.of faetHeight) ) 

if ( 

nerfForceFlag ) 

{ 

nerf Img. style. top * (nerfDiv. oEEsetHeight-l) + 

"px" ; 

nerf Img. style. height « 1 + "px"; 



else 
( 

nerf Img. style. top * 0 + "px" ; 

nerflmg. style. height » nerfDiv. offsetHeight + 

"px" t 

nerfForceFlag ■ false? 
DynamicObj ect . EndSpr ing ( ) ? 

) 

} 

else 
{ 

nerf img. style. top - 

0 + "px"; 

nerf Img . style . height 

» ner f Div. of f setHeight + "px"; 

if ( nerfForceFlag ) 

nerfForceFlag - false? 
DynamicObject .EndSpring [) ; 

} ^ 

nerf Img. style. width- «174px M ; 

) 

previouBY =» yval; 

> 

function restoreBall (> 
( 

BoingSound.RunO ; 
// Change Image 

nerf Img. src * "imagee\\nerfi .gif " ; 
// Change Location and Size 
nerf Img .style . top * 0 «- "px" ? 
nerf Img. style. height » 
nerf Div. off setHeight + "px"; 

nerf Img. style. width* "J7 4px"; 
// change Pop Flag 
nerf PoppedFlag » false; 

} 

</ecript> 
</head> 

<body 

bgcolor«ffffff 

> 

<B0DY TEXT«"#000000" BGCOLOR- "flFFFFFP* LINK- "flFFOOOO" 

VLINK*"fl800080" ALINK*«flOO00FF" 

BACKGROUND*. M images \backg round . j pg n > 

<CENTERxTABLE > 

<TR> 

<TDx/TDxTOi 

<CENTERxIMG SRC-*images\logo2_red ,gif » HEIGHT-90 

WIDTH-162 ></CENTER> 

</TDxTDx/TD> 

<TD> 

<CENTERxBxFONT SIZE=+2>Pop The Ball</FONTx/Bx/CENTER> 
</TDxTD> </TD> 

<TDxIMG SRC* "images\mouBe.gif" HBIGHT-144 WlDTH»246x/TD;» 

<TDx/TD> 

</TR? 

</ TABLE > 

<CENTER> 

<HR WIDTH*"100%"xBR> 
</CENTER> 

<CENTERxDlV ID*DEBUGINFO> </DIVx/CBNTER> 
<OBJECT ID- "DynamicObject" WrDTH~0 HEIGfJT»0 
CLASSID» ,, CLSID»EC296BE6-836C-11D1-Ae68-00600B^A2742 , ' 
CODEBASE* "Dynami cControl. CABttversion-2, 0, G, Q"> 
</OBJECT> 

<0BJECT ID*«PopSound" WIDTH-0 HEIGHTS 

CLASSID="CLSID t 05589FAl-C356-llCE-BF0a.-00AA0O55595A«> 
<PARAM NAME* M ShowControIs" VALUE-" 0"> 
<PARAM NAME* "ShowDisplay" VALUE- u 0 " > 
<PARAM NAHE-" Autostart" VALUE- "0"> 
<PARAM NAME*"AutoRewind " VALUE* "1»> 
<PARAH NAME="FileName" 

VALUE-" sounds\pop3 .wav"> 

</OaJECT> 

<OBJECT ID»"BoingSound« WIDTH-0 HEK3HT-0 

CLASS ID-" CL91D j 0558 9FA1-C356 -11CE-BF01- QOAAO OSS595A" > 
<PARAM NAMB«"SbowControlS" VALUE- "0"> 
<PARAM NAME* " Sh owDi Sp lay " VALUE-" 0"> 
<PARAM NAME* "AutoStart" VALUE*" 0"> 
<PARAM NAME- "AutoRewind" VALUE- 
<PARAM NAl-1E* t, FileName" 

VALUE » sounds\boing . wa v " > 

</0BJECT> 
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<rdiv 

id«ner£Div 

style* "position * absolute,- left*360; top»210; 
width>174; heightil92; overflow t clip; " 
> 

<img id-nerflmg style-"posit ion t absolute; leftiO; 
top i o ; a - index : -1; ■ src« *images\nerf . gif M > 
</div> 

<BUTTON TYPE-" BUTTON " TITLE*" In£ late Ball" 

STYLE=" position : absolute; lef t * 24 0 ; 

top t 290;" 

LANGUAGE^" JavaScript" 
onmoueeup= B reatoreBall() ■ 
> 

Inflate Ball 
</ BUTTON* 

<div style- "position i absolute; left « 10; topi 440;" > 
<CENTER> 

< BUTTON TYPE- "BUTTON" T ITLE« H Back " 

LANGUAGE- » JavaScript ■ 
onmouseup- "window. navigate! ' spring, htm* ) ■ 
> 

Back 

</BUTT0N> 

<BUTTON TYPE- " BUTTON" TITLE** "Next " 

LANGUAGE- "JavaScript" 
onmouseup- "window . navigate { • ball . htm' } * 
> 

Next - 

</ BUTTON* 

</CENTER> 

<CENTERxP> 

<HR WIDTH- ■ 100% "xBRxIxFONT SIZE«-l>£eelit<8immerae.cotTKBR> 
Copyright (c) 1996-1998, Immersion 
Corparation</FONTx/Ix/Px/C£NTER> 
</div ? 

</bodys> 
</btml> 



ball. htm — Dynamic ball demo, FIG. 14 

<HTML> 
<H£AD> 

<WETA NAME- "GENERATOR " Content*. "Microsoft Developer Studio" > 

<META HTTP -EQU IV- "Content -Type" content- "text /html; 

charset*iso-8859~l n > 

<T I TLE> Bounce The Ball</TITLE> 

</HEAD> 

<B0DY TEXT-«tf000Q00" BGCOLORw w il FFFFFF* LINK- r, #FF00Q0" 

VLINK-'flSOOOSO" ALINK-" ttOOOOFF" 

BACKGROUND- " images \background . j pg ■ > 

<CENTERxTABLE > 

<TR> 

<TDx/TD> 

<TDxCENTERx IMG SRC* "images\logo2jced.gif " UEIGUT-90 

WIDTH- 162 x/CENTER> 

</TDxTDx/TDxTD> 

<C£NTERxBxFONT SIZE-+2>Bounce The Ball</FONTx/Bx/CENTER> 
</TDxTDx/TD> 

<TDxIMG SRC- "imagea\moufle.gif " HEIGHT-144 WIDTH-246x/TB> 

<TDx /TD> 

</TR> 

</TABLBxCENTER> 

<HR WIDTH-" 100% «xBR> 

</CENTER> 

<l --<HODY style- "background- image i 

urKimageB\BallBackground.jpg); background- repeat* no- 
repeat; "> 

<!-- Here are the images --> 
<CENTERxDIV id»DEBUGINFO> </DIVx/CENTER> 

<OBJECT IBaXDynamicObject" WIDTH*0 HE1GHT-Q 

CLASS ID=."CLSID:EC296EE6-B36C-11DT-AB68-0060083A2742« 

CODES ASE* '* Pynami cCon trol. CAB » vers ion -2, 0, 0, 0*> 

</OBJECT> 

<OBJECT ID- "Bonk Sound" WIDTH-0 HEIGHTS 

CLASSID» t, CLSlD l 055B9FAl-C356-llCE-BF01-00AA0O55595A*> 
■cPARAM NAME=»"ShowConfcrols" VALUE-"0"> 
cPARAM NAME«"ShowDisplay" VALUE- »0«> 
<PARAM NAME*" AutoS tart" VALUE="0"> 
<PARAM NAME- " Au toRewind" VALUE- "!"> 
<PARAM NAME-"FileName" 

VALUE* " sounds \bonk . wav" > 

</0BJECT> 

<IMG id-Court Img src\* M lmages\couit .jpg" style* "position* 

absolute; topi 195; lefts 225; z- index* -1"> 

<IMG id=BalllImg grc=» images \bail. gif " atyle-"position » 

absolute; topi 200; left i 230; z- index i 1"> 

<!-- Balllmage Size is 100x100 

<div style»"position*absolute; left>10; top*535; w > 
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<CENTER> 

< BUTTON TYPE= " BUTTON" TITLE- "Back" 

LANGUAGE* "JavaScript " 
onmouseupa" window. navigate ( 'pop. htm') ■ 
> 

Back 

<:/BUTTON> 

< BUTTON TYPE- "BUTTON" TITLE- "Next" 

LANGUAGE- "JavaScript « 
onmouseup* "window. navigate < 'demo. html' } 11 
> 

Next 

</BUTTON> 
< /CENTER* 
4P> 

<CENTERxHR WIDTH-" 100% "xBRxIxFONT SIZE-- 

l>£eelit@immerse.com<BR> 

Copyright (c) 1996-1998, Immersion 

Corpor a t i on< / FONT x / 1 x / CENl'ER > 

</div> 

<SCRIPT F0R«window EVENT- "onload" LANGUAGE* " JavaScript * > 
// Initialize — start the ticker I 

document .onmousemove * doMouseMove; 

BalllRadius « 0.5 * Ballllmg. of fsetWidth/ 

Ballllmg. style. height • Ballllmg, style .width; 

DynamicObject .StartBall () ; 

tick(); 

</SCRIPT> 

<SCRIPT language-JavaScrlpt> 
var tickTimeout; 
tickTimeout « 1; 
var oldrime « new DateO/ 
var n » 0; 

var playgroundLeEt, PlaygroundTop; 

var PlaygroundWidth, Playgroundfleight ; , 

PlaygroundLef t « 230; 

PlaygroundTop » 200; 

PlaygroundWidth - 362; //390; 

PlaygroundH eight » 208; //290; 

var BalllMass, BalllK* 

var BalllXp, BalllYp, BalllXpp, BalllYpp; 

BalllMass - 10; 

BalUK » 0.5; 

BalllXp - 0; 

BalHYp = 0; 

BalllXpp - 0) 

BalllYpp - 0; 

var ForceFlag; 
ForceFlag « false,- 

// Periodically calls itself 

function tickO 

{ 

moveBallsO ; 

window. setTimeout ("tick (} ;", tickTimeout, 
"JavaScript" ) ; 
) 

// Perform a Ball movement simulation 
function moveBallsO 

// Calc dynamics for Balll during this time step 

Balllxp +- BalllXpp; 

BalllYp +- BalllYpp; 

Ballllmg. style, pixelLeft +» BalllXp; 

Ballllmg. style. pixelTop +- BalllYp; 

// WALL COLLISION DETECTION 

if ( Ballllmg. style. pixelLeft < PlaygroundLef t } 
{ 

BonkSound.RunO ; 
Ballllmg. Btyle. pixelLeft « 

PlaygroundLef t ; 

BalllXp * -BalllXp*0.75; 

} 

else 

if { Ballllmg. style .pixelLeft > 
{ PlaygroundLef t+ PlaygroundWidth) > 
{ 

BonkSound.RunO ; 
Ballllmg. style. pixelLeft « 
(PlaygroundLef t+ PlaygroundWidth) ; 

BalllXp « -BalllXp*0.7S; 

) 

if ( Ballllmg. style. pixelTop < PlaygroundTop ) 
{ 

BonkSound.RunO ; 

Ballllmg. style. pixelTop » PlaygroundTop 
BalllYp « -BalllYp*0.7S; 

} 

else 

if ( Balll Img.Btyle. pixelTop > 
(PlaygroundTop+PlaygroundHeight) ) 

BonkSound . Run ( ) ; 
Ballllmg. style. pixelTop ° 
(PlaygraundTop+Playgroundlfeight) f - 

BalllYp » -BalUYp*0.7S; 
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} 



</OBJECT> 



// CalcLoopRate O ; 

} 

function CalcLoopRate 0 
t 

var rate; 

n " n+1; 

if { n -» 100 ) 

I 

newTime *» new Date { ) ; 
rate a newTime. get Time 0 - 

oldTime .getTime { ) ; 

oldTime * newTime; 
// DEBUGINFO.innerHTML » v (1000/ (rate/n) ) ; 

n»0? 

} 

} 

// When the mouse moves, do bounds checking and possibly 
alter the Ball's X/Ypp function doMouseMoveO 

var xc, yc, w, mag; 

// Ball 1 

xc » event. clientX - 
{Ballllmg. of fsetLeft+BalllRadius) ; 

yc » event. clientY - (Ballllmg. oefsetTop 
+BalllRadius) ; 

w » xc*xc + yc*ycj 

I! Are we inside the Ball7 

if ( (w « (BalllRadiua*BalllRadius) ) ) 

{ 

ForceFlag « true; 

mag « - ( (BalllRadius/Math.sqrt (w) -1) * 

BalllK) / 

DynaraicObject .Apply Force ( xc, yc, 

mag* 500 00 ); 

BalllXpp « mag * xc / BalllMass; 
BalllYpp « mag * yc / BalllHass; 

> 

else 
{ 

// use the flag to prevent this from 
being called lots of times! 

if ( ForceFlag »■ true } 
{ 

// No, so there will be no 

applied force 

BalllXpp - 0; 
BalllYpp « 0; 

DynamicOb ject .EndForce ( ) ; 
ForceFlag » false; 

} 

} 

var xabs, yabs; 

xabs ■ event .BcreenX - (event .of faetX - 
Ballllmg. style. pixelLeft ); 

yaba « event .screenY - (event .of fsefcY - 
Ballllmg. style -pixelTop ) ,- 

// DynamicOb ject .ChangeBallPos ( xabs, yabs ); 



</SCRIPT> 
</BODY> 

</html> 



pendulum.htm — pendulum demo, FIG. 15 



< JDOCTYPE HTML -PUBLIC " -//M3C//DTD HTML 3.2//EN»> 

<IITML> 

<HEAD> 

<TITLE>Cart - Pendulum FEELit Mouse Demonstration<:/TiTLE> 
</KEAD> 

<B0DY BGCOLOR-BLACK TEXT~RED> 

<DIV STYLE" " font -size* 12 pt* font - family i Verdana, Arial, 

Helvetica"* 

<H3 ID=tm/Head>Cart- Pendulum Game</H3> 
</DIV> 

<CENTER><D1V id«DEBUGINFO> </DI Vx/CENTER> 
<HR> 

«;OBJECT ID»Serta WIDTH-O HEIGHT»0 

CLASSID-» ,, CLSID 1 EC296EE6-836C-11D1-A86B-00600B3A2742» 
CODEBASE«"DynamicControl.CAB8 version*!, 0,0, 1"> 
< /OBJECT* 

<OBJECT ID-Cart 

STYLE- " Position t absolute; WIDTH»625; HBIGHT«425; top » 10; 
left! 70; Z- INDEX: 1" 

CLASSlD="CLSIDi3693O3C2-D7AC-lldG-89D5-O0AQC90833B6» 

> 

<PARAM NAMB»»CoordinateSystem" VftLUE*<l"> 
<PARAM NAWEo»WoUBeEventsEnabled tt VALUE* "l":* 



<OBJECT ID» Pendulum 

STYLE- "Posit ion t absolute; WIDTH, 625; HEIGHTi425; top.10; 
le£ti70; Z-lNDEXt 2" 

CIiASSID*"CLSID«369303C2-D7AC-lldO-89D5-OOAOC90833E6"> 

<PARAM NAME*"CoordinateSystem n VALUE» n l" 
<PARAM NAME- "MouseEventB Enabled" VALUE- "1" 

</0BJECT> 

<SCRIPT language=»VBScript> 
function window_onload() 

initialize() 
end function 
<:/SCRI PT> 

<SCRIPT LANGUAGE* " Javascript" > 

var cartX, carfcXp, cartXpp; 

var cartY, cartwidth, cartHeight? 

var cartMass; 

cartxpp » 0; 

cartXp « 0; 

cartX » 300; 

cartY a 2 00; 

cartwidth * SO; 

cartHeight « 30; 

cartMass -= 1; 

var cartK = 0.4; 

var forceFactor » 4000; 

var trackX, trackY, trackWidth, trackHeight; 
trackX - 0; 

trackY « cartHeight/ 2; 

trackWidth « Cart .style. pixelWidth; 

trackHeight => 10; 

var linkWidth, linkHeight, plumbDiameter/ 
linkWidth « 10; 
linkLength « 100; 
plumbDiameter « 30; 

var pendT, pendTp, pendTpp; 
var pendMass, pendlnertia; 
pendT «* 170; 
pendTp *» 0; 
pendTpp « 0; 
pendMass «* 1 ; 
pendlnertia - 1; 

var myOffsetX, myOffsetY; 
myOffsetX » 415; 
myOffsetY - 250; 

var g » 9.81; 

var friction « 0.5; 

var forceX « 0; 

var forcePosMax » 50; 

var oldTime « new DateO; 
var period; 

var lastHouseX = 0; 
var lastMouseY = 0; 
var bufctonFlag - false; 
var forceFlag =» false; 

var lib - Cart .Library; // This sets up the 

DirectAnimation Library for 

// DrawingSurface 

operations. 
// 

// initialize our scripts 
function initialize () 
{ 

CreateSceneO ? 
Transfom^lceneO ; 
tickO; 

\ 

// Tick() is performed every tick... 

function tickO 

{ 

Cal cLoopRateO j 
Simulated ; 
Trans forinSceneO ; 

window, setTimeout f«tick() ;", 1, "JavaScript* >; 

I 

// CalcLoopRate 

// Figure ft of seconds since last call to this function. 
// Stores value in global period, 

function CalcLoopRate {) 
{ 

newTime » new Date ( ) ; 

period = { newTime. getTime <) - oldTime. getTime () 

/ 1000; 

oldTime « newTime; 

period *« 2; // Scale to integrate faster 

(make time fly!) 
) 
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// Creates the scene 
function CreateScene {) 
{ 

var da; 

// Draw the cart and Track 
Cart.Setidentity () ; 
da « Cart .DrawingSurface; 
// The Cart 

ds.FillColot< lib. blue ); 
da.Rect( - (cartWidth/2) , - 
lcartHelght/2) , cartWidth, cartHeight ); 

// The Track 

ds.FillColor ( lib. green ); 

ds.Rectt (trackX-300- (trackWidth/2) ) , 
trackY, trackwidth*3 , trackHeight ); 

Cart -DrawingSurf ace » ds; 

// Draw the Linkage and plumb- bob 

ds « Pendulum. DrawingSurf ace; 

// The Linkage 

ds.PillColor<lib.ColorRgb255(255,0,0) ) ; 
da.Rect( -QinkWidth/2) , 0, linkWidth, 

linkbength ) ; 

// The plumb- bob 
ds.FillColor(lib.ColorRgb255 (200, 200, 255) ) ; 

ds.Oval< - {plumbDiameter/ 2) , 
(linkLength- (plumbDiameter/2)) , plumbDiameter, plumbDiameter 
)i 

Pendulum. Drawing Surf ace » ds; 

// Transform scene 
function Transf orroScene () 
{ 

Cart.SetldentityO ; 

Cart, Trans la te( cartX-myOf f setX, cartY-myOf fsetY, 

0 ); 

Pendulum.. Set Identity O ; 

Pendulum. Rotate ( 0, 0, -pendT ); 

Pendulum. Translate ( cartX-myOf f setX, cartY- 
myOf fsetY, 0 ); 
} 

// Performs dynamic simulation 

function Simulate () 

{ 

var oldTRad - pendT* (Math.Pl/180) 

var cosTRad « Math. cos {oldTRad) ; 
var sinTRad » Hath. sin (oldTRad } ; 
var oldTpp » pendTpp; 

var oldxpp » cartxpp; 



< 



// Check interaction force 
if ( EorceFlag ) 

forceX » (lastMouseX - cartX) * c 
DEBUGINFO. innerKTML=f orceX; 
if ( forceX > force PobM ax ) 

forceX m forcePosMax; 

else 

if ( forceX < -forcePosMax) 

forceX o -forcePosMax; 



J 

else 



forceX - 0; 



// Move the cart 

cartxpp a ( forceX - 
(pendMass*lirtkLength* oldTpp* cosTRad) + 
{ pendMass * 1 inkLeng th*pendTp *pendTp* s inTRad) - 
<£riction*cartXp) ) / (pendMass+cartMass) ; 

cartXp +» ca rtXpp* period ; 

cartX +« cartXp+period; 

if { (caxtX-(cartWidth/2)-103) < trackX J 

{ 

cartX » trackX* (cartWidth/2) +103; 
cartXp - 0;//-cartXp? 
cartxpp » 0; 

} 

else 

if ( <cartX+{cartWidth/2}~103> > 
(trackX+trackWidth) ) 
{ 

cartX « (trackX+trackWidfch- 

(cartWidth/2))+103; 

cartXp « 0;//-cartXp; 
cartXpp - 0; 

> 

// Move the pendulum 

pendTpp « - ( (g*sinTRad> + (oldxpp*coaTRad) } / { 
(pendinertia/ (pendMass*linkLength) ) +linkLength) ; 

pendTp +* pendTpp* period; 

pendT - {oldTRad + pendTp*period) * 
(180/Math.PI); 

{( DEBUG IN FO.innerHTML= pendTpp + •<***<• + pendTp + 

u «** >• + oldTRad + " *** " + pendT + " *** Peri" + period; 

// Apply Force 
if ( EorceFlag *w true ) 



( 

forceX* forceFactor ); 



Serra.ApplyForce( 1, 0. 



) 

else 



Serra .ApplyForce ( 1, 0, 0 ); 



// DoMouBeMove 

function doMouseMove (button, clientX, clientY) 
{ 

if ( buttonFlag ) 
{ 

// if ( (clientY>(cartY-(cartReight/2)+10) ) 

&& (cIienfcY<<cartY+(carfcHeight/2)+10>) ) 
// { 

EorceFlag « true; 
lastMouseX - clientX; 

// } 
// else 

// forceFlag - false; 

} 

else 

forceFlag » false; 

I 

// doMouaeDown 

function doMouseDown (button, clientX, clienfcY) 
{ 

// Check if it's the left mouse button 

if ( button mm l ) 

{ 

If check if we»re inside the box 
if ( (clientX>(cartx-{cartWidth/2))) && 
(clientx< (cartx+ (cartWidth/2 }) J (clientY> (cartY- 
(cartHeight/2) )) && (clientY< (cartY+ (cartHeight/2) ) ) ) 
{ 

buttonFlag * true; 
forceFlag » true; 
lastMouseX • clientX; 

} 

} 

} 

// doMouseUp 

function doMouseUp (button, clientX, clientY ) 
( 

// Check if it' a the left mouse button 
if ( button 1 ) 



} 



buttonFlag » false; 
forceFlag » false; 



</SCRIPT> 

<SCRIPT FOR=Carfc EVENTeonmousedown (button, shift, x,y) 
LANGUAGE*. ■ JScr ipt " > 

H DEBUGINFO. innerHTMLw "car" ; 

doMoueeDown(button,x+70 -4 0,y+10- 110+25) ; 

</SCRIPT> 

<SCRI PT FOR=Cart EVENT«onmouseup (button, Bhift,x J y) 
LANGUAGE- H JScript M > 

// DEBUGINFO . innerHTML« « car" ; 

doMouseUp(button l x+70-40,y+10-110+25j ; 

</SCRIPT> 

<SCRIPT FOR=Cart EVENT^ onmousemove {button, shift, x,y) 
LANGUAGE- « JScript » > 

// DEBUGINFO. innerH.TMLa"car>' ; 

doMouaeMove (button, x+ 70 -40, y+10- 110+25) ; 

</SCRIPT> 

<SCR£PT FOR»Pendulum EVENT«onmousedown {button, shift, x,y) 

LANGUAGE^ "JScr ipt "> 

// DEBUGINFO. lnnerHTML*. "pen" ; 

doMouseDown (button, x+70-40,y+IO-HO+25) ; 

</SCRIPT> 

<SCRrPT FOR=Pendulum EVENT»onmouseup (button, shift, x,y) 
LANGUAGE- n JScript " > 

// DEBUGINFO. innerHTML»«pen»; 

doMouBeUp (button, x+70-40 J y+10-llo+25) ; 

</SCRIPT> 

<SCRIPT FOR^Pendulum EVENT»onmousemove (button, shift, x,y) 

LANGUAGE^" JScr ipt "> 

/ / DEBUGINFO . innerHTML*. "pen" ; 

doMouseMove(button,x+70-40,y+10-110+25j ; 

</SCRIPT> 

<SCRIPT FORcdocument BVENT-onnjousedown LANGUAGE- JScript "> 
// DEBUGINFO, innerHTML* n doc n ; 

doMouBeDown( event .button, event .alientX+40, 
event. clientY-70 ) ; 
</SCRIPT> 

<SCRIPT FOR«document EVENT- onmouseup LANGUAGE* "JScr ipt rt > 
// DEBUGINFO. innerHTML»"doc« ; 

doMoueeUpt event .button, event. clientX+40, 
event. clientY-7 0) ; 
</SCRIPT> 

<SCRrPT FOR«document EVENT-onmousemove LANOUACSE- " JScr ipt" i 
// DEBUGINFO .innerHTMLo "doc" ; 

doMouseMove( event .clientY, event . clientX+40, 
event .clientY-70 ); 

<:/SCRIPT> 

<SCRIPT FOR=myHead EVENT^onmousedown LANGUAGE- "JScript" > 
tick(); 

</SCRIPT> 
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</BODY> 
</HTML> 



Remaining listings in Appendix C are used for 
all the demos in Appendix C 



DynamicControl.odi 

// DynamicControl.odi » type library source for ActiveX 
Control project. 

// This fLle will be processed by the Make Type Library 
(mktyplib) tool to 

// produce the type library (Dynamic Control . tlb) that will 
become a resource In DynamicControl .ocx. 

^include <olectl.h> 
^include <idispids.h> 

[ uuid(EC296EB3-B36C-:UDl-AB60-OO6OO83A2742) , versionU . 0} , 
lielpf i le ( " DynamicControl . hip" ) , 

helpstring ("DynamicControl ActiveX Control module"), 

control ] 
library DYNAHiCCONTROLLib 
{ 

import lib lSTDOLE__TLB) ; 
import lib ( STDT YPE_TLB ) ; 

// Primary dispatch interface for 
CDynamicControlCtri 

i uuid(EC296EE4-836C-UDl-AB6B-0060083A2742) , 
helpstrlng ("Dispatch interface for 
DynamicControl Control"), hidden ) 

di sp inter face _DDynamicControl 
( 

properties t 

// NOTE - ClassWizard will maintain 
property Information here. 

// Use extreme caution when editing 

this section, 

//{ { AFX_ODL_PROP (CDynamicControlCtrl) 
//) JAFX^ODL^PROP 

methods t 

// NOTE - ClassWizard will maintain 
method information here, 

// Use extreme caution when editing 

this section, 

// { [AFXJ3DLJ4ETHOD (CDynamicControlCtrl) 
tld(l) J~long Apply Force (long Xdir, long 

Ydir, long Mag) ; 

lid(2)) long EndForceO ,• 
(id (3)] long StartBallO ; 
lid (4) I long EndBallO ; 

(id (5)1 long ChangeB&llPosUong leftVal, 

long topVal) ; 

[id(6>) long StartSpringdong topVal) ; 
[id(7)) long EndSpringOj 
I id {8)} long StartNerfO; 
[id (9)) long EndNerf () ; 

fid(10)J long ChangeNerf Rect {long left, 
long top, long width, long height) ; 

tid(ll)l long SetSpringKClong theK) ; 
Ud(12)) long Pop(),- 
/ / } } AFX_ODL_METHOD 

(id(DISPID ABOUTBOX)) void About Box Of 

)r 

// Event dispatch interface for 
CDynamicControlCtrl 

| uuid(EC296EE5-836C-llDl-AB68-OO60083A2742) . 
helpstring( "Event interface for DynamicControl 

Control " > ) 

dispinterface DDynamicControlEvents 
{ 

properties » 

// Event interface has no properties 

methods i 

// NOTE - ClassWizard will maintain 
event information here. 

// Use extreme caution when editing 

this section. 

//{ {APX_ODL_EVENT (CDynamicControlCtrl) 
//}}AFX 0DLJ3VENT 

)/ 

// Class infoimaiion for CDynamicContiolctr) 

• ( uuid(EC296E£6~836C-UDl-A868-0060083A2742) , 

helpstr ing( "DynamicControl Control") , control ) 
coclass DynamicControl 
. ( 



[default) dispinterface 

J^DynamicControl ; 

{default, source) dispinterface 
DDy naini cCont rol Events ; 
}; 

//{ {afx_append_odl} ] 
//}}afx append~odi/} } 



DynamicControl. inf 

Iveraion) 

b igna ture « " $CH ICAGO$ » 
Advanced I WF= 2.0 
[Add. Code 1 

DynamicControl .ocx»DynaroicControl . ocx 
msvcrt .dll-msvcrt . dll 
mf C42 .dll*«lfC42 .dll 
olepro32.dll«=olepro32 .dll 
[DynamicControl .ocx) 

file-win32-x86«thiBcab 

clsid={EC296ES6-a36C-llDl-AB68-0060083A2742} 

PileVereion«l,0, 0, 1 

RegiBterServer*yes 
(msvcrt.dll J 

FileVersion«4, 20,0,6164 

hook=mfc42inataller 
[mfc42.dll] 

PileVerBion-4,2,0, 6256 

hook»rof c4 2 installer 
[olepro32.dll) 

FileVersion«4, 2, 0, 6068 

hook*mfc4 2 installer 
lmfc42installerj 

file-win32- 

x8 6*htfcp t //acti vex. microsoft . com/controlB/vc/m£c42 .cab 
run» % EXTRACTED I R% \ m£ c4 2 . exe 



DynamicControl.def 

; DynamicControl.def i Declares the module parameters. 

LIBRARY "DYNAM ICCONTKOL . OCX " 

EXPORTS 

DllCanUnloadNow ©1 PRIVATE 
DllGetClassObject ®2 PRIVATE 
DllRegisterServer ®3 PRIVATE 
DllUnregisterServer ®4 PRIVATE 



DynamicControl.rc 

//Microsoft Developer studio generated resource script. 
// 

^include "resource .h" 

IJdefine APSTUDIO_READONLY_SYMBOLS 

/////////////////////////////////////////////////////////// 
// 

// Generated from the TEXT INCLUDE 2 resource. 
// 

8 include "afxres.h" 

//////////////////////////////////////////////////////////// 
ttundef APSTUD IO^READONhY^SYMBOLS 

//////////////////////////////////////////////////////////// 
// English (U.S.) resources 

#i£ ! de £ ined ( AFX_R£SOURCE — DLL) || defined (AFXJTARG^ENU) 
ffifdef WIN32 

LANGUAGE LANG — ENGLISH, SUBLANG^ENGLISHJJS 
jjpragma code_page (1252) 
fiendif //_WIN32 

tfifdef APSTUDIO INVOKED 

////////// /////7///////// ///////////////////// ///////////// 
// 

// TEXTINCLUDE 
// 

1 TEXT INCLUDE DISCARDABLE 
BEGIN 

"resource. lAO* 

END 

2 TEXT INCLUDE DISCARDABLE 
BEGIN 

"^include ""afxrea .h""\r\n* 

-NO- 
END 

3 TEXT INCLUDE DISCARDABLE 
BEGIN 

"1 TYPELIB ""DynamicControl, tlb""\r\n H 
»\0« 

END 
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jfendtf // APSTUDIO_INVOKED 
flifndef MAC 

////////7////////////////////////////////////////////////// 

// 

// Version 

VS VBRSrOtf INFO VERSIONINFO 

FILBVERS ION 2,0,0,0 

PR0DUCTVBRSION 2,0,0,0 

FILEFLAGSMASK 0x3 £L 
f]i£de£ J3EBUG 

FILEFLAGS OxlL 
Selae 

FILEFLAGS OxOL 
Hendif 

FILEOS 0x4L 
FILETYPE 0x2L 
FILESU8TYPE OxOL 
BEGIN 

BLOCK "StringFilelnfo" 
BEGIN 

BLOCK »040904b0" 

BEGIN 

VALUE "CompanyName" , "Immersion Corpora tion\0° 
VALUE "FileDeacription,", "DynamicControl ActiveX 

Control Module\0" 

VALUE "FileVersion" , "2, 0, 0, 0\0" 
value "internalName", n DYNAMlccONTROL\0" 
value "LegalCopyright", "Copyright (C> 1998\0 M 
VALUE "OriginalFllename", "DyNAMlCCONTftOL.OCX\0" 
VALUE " ProductNarae" , "DynamicControl ActiveX 

Control Module\o n 

VALUE "ProductVersion", "2, 0, 0, 0\0" 

END 

END 

BLOCK "VarFilelnfo" 
BEGIN 

VALUE "Translation", 0x409, 1200 

END 

END 

flendif // IJ1AC 

/////////////////////////////////////////////////////////// 
// Icon 

// Icon with lowest ID value placed first to ensure 
application icon 

// remains consistent on all systems. 

I D I __AB0UTDLL ICON DISCARDABLE 

"DynamicControl . ico" 

/////////////////////////////////////////////////////////// 
// Bitmap 

I DB_DYN AM I CCONTR0L BITMAP DISCARDABLE 

"DynamicControlCtl.bmp" 

/////////////////////////////////////////////////////////// 
// Dialog 

IDDJ*BOUTBOX_DYNAMICCONTROL DIALOG DISCARDABLE 34, 22, 2 60, 
55 

STYLE DSJIODALFRAME j WS_POPUP j WS_CAPTION J WSJSYSMENU 
CAPTION ""About DynamicControl Control" 
FONT 8 , "MS Sans Serif" 
BEGIN 

ICON IDI_ABOUTDLL, IDC_STATrC, 10, 10, 20, 20 

LTEXT "DynamicControl Control, Version 

1.0", IDCJ3TATIC. 40,10, 

270,8 

LTBXT "Copyright (C) 1998. Immersion 

Corporation" , IDC_STATIC, 

40.25,170,8 

DEFPUSHBUTTON "OK" , IDOK, 221. 7 . 32 , 14, WS J3ROUP 

END 

IDD_PROPPAGE_DYNAMICCONTROL DIALOG DISCARDABLE 0, 0, 250, 
62 

STYLE WS_CHILD 

FONT 8, "MS Sans Serif 

BEGIN 

LTEXT "TODOt Place controls to manipulate 

properties of DynamicControl Control on this dialog.' 1 , 
IDC_STATtC,7,25, 229,16 

END 

/////////////////////////////////////////////////////////// 

// DESIGN INFO 

flifdef APSTUDI0_INV0KED 

GUIDELINES DESIGMINFO DISCARDABLE 

BEGIN 

IDD ABOUTBOX_DYNAMICCONTROL, DIALOG 
BEGIN 

LEFTMARGIN, 7 

RIGHTMARGIN, 253 

TOPMARGIN, 7 

BOTTOMMARGIN, 48 

END 

I DD_PR0PPAGE_DYNAMICC0NTROL , DIALOG 
BEGIN 

LEFTMARG1N, 7 

RIGHTMARGIN, 24 3 

TOPMARGIN, 7 
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BOTTOMMARGIN, 55 

END 

END 

Hendifi // APSTUDIO^INVOKED 

/////////////////////////////////////////////////////////// 
// String Table 
STRINGTABLB DISCARDABLE 
BEGIN 

IDS DYNAMICCONTROL "DynamicControl Control" 

IDS DYNAMICCONTROL PPG "DynamicControl Property Page" 

END 

S TR I NOTABLE DISCARDABLE 
BEGIN 

IDS J3YNAMlCCONTROL_PPGj:APTION "General « 

END 

Hendif // English (U.S.) resources 

/////////////////////////////////////////////////////////// 
ftifndef APSTUDIO INVOKED 

////////////////?/////////////////////////////////////////// 

// Generated from the TEXTINCLUDS 3 resource. 

// 

1 TYPELIB "DynamicControl. t lb" 

//////////////////////////////////////////////////////////// 
8 end if // not A pstudio_ invoked 



DynamicControl.h 

#if 

I defined (AFX_DYNAMlCCONTROL_H EC296EEC_836C_11D1 AB68 00600 

0 3A2742 INCLUDED_) 

tfdefine 

AFXJ3YNAMICC0NTR0L_H EC296EEC_83 6C_1ID1_A868_0060083A3742 

INCLUDED_ 

#i£ _MSC_VER 10OO 
^pragma once 

ttendif // _MSC_VER >» 1000 

// DynamicControl. h j main header file for 
DYNAMICCONTROL . DLL 

flif i defined ( _AFXCTL_H__ > 

tferror include ' afxctl.h' before including this 

file 
tfendif 

^include "resource. h' 1 // main symbols 

/////////////////////////////////////////////////////////// 
// CDyuamicControlApp : See DynamicControl.cpp for 
implementation . 

class CDynamicControlApp * public COleControlModule 
{ 

public i 

BOOL InitlnatanceO 
int ExitlnatanceO ; 

b 

extern const GUID CDECL _tlid,*> 
extern const WORD _wVerMajor; 
extern const WORD _wVerMinor; 

// { {AFX__INSERT_LOCATION) } 

// Microsoft Developer Studio will insert additional 
declarations immediately before the previous line. 

ffendif // 

1 de f ined { AFX DYNAM I CCONTROL_H EC2 96EEC_8 3 6C_1 1D1_A8 6 8_0 0 6 00 

83A2742 INCLUDED) 



DynamicControl.cpp 

// DynamicControl.cpp t Implementation of CDynamicControlApp 

and DLL registration. 

^include "stdafx.h" 
ifinclude "DynamicControl .h" 

tfifdef J3EBUG 
lldefine~new DEBUG_NEW 
Sundef THIS_FILE 

static char THIS_FILE U - FILE ; 

#endif 

CDynamicControlApp NEAR theApp/ 

const GUID CDECL BASED_CODE _tlid = 

{ 0xec296ee3, 0x836c, Oxlldl, { Oxaa , 
0x68, 0, 0x60, 0x8, 0x3a, Qx27, 0x42 } }; 
const WORD _wVerMajor - 1; 
const WORD _wVerMinor = 0; 
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/////////////////////////////////////////////////////////// 

// CDynamicControlAppi jlnitlnstance - DLL initialization 

BOOL CDynamicControlApp 1 1 Initlnatance ( ) 
{ 

BOOL blnit =« CQleControlModulei jlnitlnstance () ; 

if (blnit) 
( 

// TOQOt Add your own module 
initialization code here.' 
) 

return blnit/ 

} 

////////////////////////////////////////////////////////// 
// CDynamicControlApp t i Exit Instance - DLL termination 

int CDynamicControlApp « tExitlnstance { ) 
{ 

// TODOi Add your own module termination code 

here. 

return COleControlModule i tExitlnstance {J ; 

) 

////////////////////////////////////////////////////////// 
// DllRegisterServer - Adds entries to the system registry 

STDAP1 DllRegisterServer (void) 
{ 

AFX_MANAGE_STATE (_afxModuleAddi:This} ; 

i£ ( I AfxOieRegisterTypeLib (AfxGefclnstanceHandle () , 

_tlid)) 

return 

Result FromScode (SELFREG_E_TVpELIB) ; 

if UCOleObjectFactoryEx t lUpdateRegistryAll (TRUE) ) 
return ResultFromScode (SELFREG^E^CLASS) t 
return NO ERROR j 

J 

////////////////////////////////////////////////////////// 
// 'DllUnregisterServer - Removes entries from the system 
registry 

STDAPI DllUnregiBterServertvoid} 
{ 

AFX_MANAGE_STATE (_af xModuleAddrThis) ; 

if ( IAfx01eUnregisterTypeLib(_tlid, ^wVerMajor, 
_wVerHinor> ) 

return 

Result FromScode (SELFREGJBJTYPELIB) ; . 
if 

( *COleObjectFactoryEx« s UpdateReg is tryAl 1 { FALSE) ) 

return ResultFromScode (SELFREG_E_CLA5S> ; 

return NO ERROR; 

) 



DynamicControlCtLh 

«if 

J defined (AFXJ3YNAMICCONTROLCTL_H EC296EF4_836C_11D1_A86S_00 

60083A2742__INCLUDED ) 
{{define 

AFX DYNANICCONTROLCTL_H_EC296EF4_836C_HDl_A86a_0060083A274 
2_J?NCLUDED_ 

#iE _HSC_VER >« 1000 
{{pragma once 

flendiE // _MSC_VER >» 100 0 

// DynamicControlCtLh t Declaration of the 
CDynamicControlCfcrl ActiveX Control clasa. 

////////////////////////////////////////////////////////// 
// CDynamicControlCfcrl » See DynamicControlCtl . cpp for 
implementation . 

clasa CDynatnicControlCtrl i public COleControl 
{ 

DECLARE_DYNCREATE (CDynamicControlCtrl) 

// Constructor 
public? 

CDynamicControlCtrl () ; 

// Overrides 

// ClassWizard generated virtual function 

overrides 

// { (A FX_V I RTUAL ( CDy nami c Con t ro 1 C t r 1 ) 
public* 

viitual void OnDraw(CDC* pdc, const CRectfi. 
rcBounds, const CRect& rctnvalid); 

virtual void DoPropExchange (CPropBxchange* pPX) ; 
virtual void OnReaetSLate () ; 
virtual DWORD GetControl Flags () ; 
//})AFX_VIRTUAL 
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// Implementation 
protectedi 

-CDynamicControlCtrl { } ; 

DECLARE_OLECREATE_EX (CDynamicControlCtrl) // 
Class factory and guid 

DBCLARE_OLETYPELIB (CDynamicControlCtrl) // 
GetTypelnfo 

DECLARE_PROP PAGE IDS (CDynamicControlCtrl) // 
Property page IDs 

DECLARE_OLECTLTYPE (CDynamicControlCtrl) 
// Type name and misc status 

// Message maps 

//{ {AFX.MSG (CDynamicCOntrolCtrl) 

// note - Classwixard will add and 
remove member functions here. 

// DO NOT EDIT what you see in these 
blocks oE generated code I 
//}}AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

// Dispatch maps 

// { {AFX_DISPATCH (CDynamicControlCtrl) 

afx msg long Apply Force (long Xdir, long Ydir, long 

Mag); 

aEx_msg long EndForceO; 
afx_msg long StartBalK); 
afxjnsg long EndBallO; 

afx msg long ChangeBallPos (long leftVal, long 

topVal); 

afxjnag long StartSpringdong topVal) t 
afxjnsg long EndspringO; 
afxjnsg long StartNerfO; 
afxjnsg long EndNerfO? 

afxjnsg long ChangeNerfRect (long left, long top, 
long width, long height) ; 

afxjnsg long SetSpringK{long theK} ; 
afx msg long Pop(); 
//}Jafx_dxspatch 
declare j3 1 sfatckjma.p( j 

afxjnBg void AboutBox() f 

// Event maps 

/ / { ( AFX_EVENT (CDynamicCorit rolCtr 1 } 
/ / } } AFX_EVENT 
DECLARE__EVENT_MAP ( ) 

// Dispatch and event IDs 
public i 

enum ( 

//{ {AFX_DISP_ID (CDynamicControlCtrl) 
dispidApply Force » 1L, 
diapidEndForce » 2L, 
dispidStartBall » 3L, 
dispidEndBall « 4L, 
dispidChangeBallPos - 5L, 
dispidStartSpring * 6L, 
dispidEndSpring « 7L r 
dispidStartfJerf » 8L, 
dispidEndtlerf » 9L, 
dispidChangeNerf Rect « 10L r 
diBpidSefcSpringK - 11L, 
dispidPop » 12L, 
//}}AFXJDISPJ£D 



// { {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional 
declarations immediately before the previous line. 

{{endif // 

Idefined(AFX„DYNAMICCOHTROLCTLJl_EC296EF4_836C_llDl_A868_00 
60083A2742 INCLUDED) 



Dynami cContro ICtl. cp p 

// Dy nami cControICti. cpp t Implementation of the 
CDynamicControlCtrl ActiveX Control class. 

fl include "stdafx.h" 
({include <:objsafe.h> 
{(include <comcat,h> 
{(include "DynamicControl .h" 
{{include "DynamicControlCtLh" 
{{include "DynamicControlPpg .h" 

M include "DynamicForces ,h" 

HRESULT CreateCoraponentCategory( CAT ID catid, WCHAR* 
catDescription ) ; 

(I RESULT ReglstexCLSIDlnCategaryt REFCLSID clsid, CATID catid 
); 

HRESULT UnregisterCLSIDInCategory( REFCLSID clsid, CATID 
catid ); 

BifcUif _DEBUG 

H define new DEBUG_NEW 
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tfundef THIS_FILE 

static char THISJTILEU * , FILE ; 

ilendif 

IMPLEMENT J5YNCRBATE (CDynamicControlCtrl, COleControl) 

////////////////////////////////////////////////////////// 
// Message map 

8E(?IN_MESSAGE_MAP lCt>ynami cControlCtrl, COleControl) 
J I UAFX_MSGJ1AP (CDynamicControlCtrl } 
// NOTE - ClassWizard will add and remove message 

reap entries 

// DO NOT EDIT what you see in these blocks of 
generated code ! 

//}}AFXJ4SG MAP 

ON QLEVERB (AFX IDS_VERB_EDIT, OnEdit) 
ON~0LEVERB (AFX~IDS_VERB_PROPERTIBS, OnProperties) 
ENDJ4ESSAGEJMAP () 

///////////////////////////////////////////////////J/////// 
// Dispatch map 

BEGINJHSPATCH_MAP (CDynamicControlCtrl, COleControl) 

// { { AFXJ0ISPATCHJ4AP (CDynamicControlCt rl ) 

DISPJPUNCT10N (CDynamicControlCtrl, "ApplyForce", 
ApplyForce, VT~I4, VTS 14 VTS_I4 VTS_I4) 

DISP_FIWCTJ ON (CDynamicControlCtrl, "EndForce" , 
BndForce, VT_I4, VTS_NONE> 

DISP_FUNCTION (CDynamicControlCtrl, "StartBall" , 
StartBall, VT_I4, VTS_NONE} 

DISP FUNCTION (CDynamicControlCtrl, "EndBall", 
EndBall, VT^I^T VTS_NONE) 

DI$P_FUNC?I0N (CDynamicControlCtrl, 
" Change BdllPos n , changeBallPos, VT_I4, VTS_I4 VTS_I4) 

D1SP_FUNCTI0N (CDynamicControlCtrl, "SfcartSpring" , 
StartSpring, VT_I4, VTS_I4) 

DISP_FUNCTION7cDynamicControlCtrl, "EndSpring" , 
EndSpring, VT_I4, VTS_NONE) 

DISP_FUNCTION (CDynamicControlCtrl, "StartNerf « , 
StartNerf, VT 14, VTS_NONE) 

DISP FUNCTION (CDynamicControlCtrl, "EndNerf", 
EndNerf , VT 147 VTS NONE) 

DISP_FIXNCTI0N (CDynamicControlCtrl, 
"ChangeNerfRect", ChangeNerfRect, VT_I4, VTS_I4 VTS 14 
VTS_I4 VTS 14) 

D1SP_FUNCTI0N {CDynamicControlCtrl, "SetSpringX", 
SetSpringK, VT„I4, VTS_I4) 

DISP FUNCTION (CDynamicControlCtrl, '•Pop", Pop, 
VT_I4, VTS_NONE) 

//} }AFXJHSPATCHJ4AP 

DISP_FUNCTI0N IDTcDynamlcControlCtr 1 , »AhoutBox«, 
DISPID_ABOUTBOX, AboutBOX, VT_EMPTY, VTS_NONE) 
END JD I S PATCH__MAP < ) 

1111/111111111111111 III III Ill/Ill II II I II 1 1 111111111/1111/1/ 
// Event map 

BEGINJ3VBNT_MAP (CDynamicControlCtrl , COleControl) 
/ ( { { AFX_EVENT_HAP ( CDynami cCont rolCt r 1 ) 
// NOTE - ClassWizard will add and remove event 

map entries 

// DO NOT EDIT what you see in these blocks of 
generated code I 

//) }AFX_EVENT_MAP 
END_EVENT_MAPO 

Htllll 11/11/11/1111/1111 HI ll(IU/I/If/f(f///(/(((l/f 11/1/ 
// Property pages 

// TODOj Add more property pages as needed. Remember to 
increase the count! 

BEGIN_PR0PPAGEIDS (CDynamicControlCtrl , l) 

PROPPAGEID(CDynamicControlPropPage» tguid) 
END_PROPPAGEIDS (CDynamicControlCtrl) 

////////////////J///////////////////////////////////////// 
II Initialise class factory and guid 
IMPLEMENT_pLGCREATE_EX (CDynamicControlCtrl , 
"DYNAMrccONTROL.DynamicControlCfcrl . 1" , 

0xec296ee6, 0x83 6c, Oxlldl, Dxa8, 0x68, 0, 0x60, 
Oxfl, 0x3 a, 0X27, 0x4 2} 

.//////////////////////////////////////////////////////;//// 

// Type library ID and version 

IMPLEMEHT_OLBTYPBLIB (CDynamicControlCtrl, _tlid, jvVerMajor, 
_wVerMi nor) 

/im/i/ mum /////////////////////// //////////////////// 

II Interface IDs 

conat 110 BASEDJTODE I ID_DDynamicControl = 

{ 0xec296ee4, 0x836c, Oxlldl, I OxaS, 0x68, 0, 

0x60, 0XB, 0x3a, 0x27, 0x42 } }; 

const I ID BASBD_CODE IID_DDynamicControlEvents = 

{ 0xec296ee5, 0x836c, Oxlldl, { Oxafl, 0x6 8, 0, 

0x60. 0X8, 0x3a. 0x27, 0x42 } } ; 

HuimuimimmmiuimnimmmmifUKumu 

II Control type information 

static const DWORD BASED__CODB _dwDynamicConfc rolOleMisc «. 

OLEMTSC INVrsrBLBATRDNTIME I 
OLEMISC^SETCLIENTSITEFIRST [ 
OLEMISC^INSIDEOUT | 
OLEMISC~CANTLINKINSIDE | 
0 LEM1SC~UECOMPOSEONRESI 2E ? 



IMPLEMENT__OLECTLTYPE {CDynamicCont rolCtr 1 , 
XDS_DYNAMI CCONTROL, _dwDynamicControlOleMisc ) 

///////I////////////////////////////////////////////////// 
CDynamicControlCtrl j » CDynamicControlCtrl Factory i *UpdateRegis 
try - 

// Adds or removes system registry entries for 
CDynamicControlCtrl 

BOOL 

CDynamicControlCtrl: sCDynamicControlCtrlFactory i tUpdateRegis 
try (BOOL bRegister) 

// TODOt Verify that your control, follows 
apartment -model threading rules. 

// Refer to MFC TechNote 64 for more information. 

//If your control does not conform to the 
apartment -model rules, then 

// you must modify the code below, changing the 
6th parameter from 

// afxReglnserfcable J afxRegApartmentThreading to 
afxReg Insert able. 

if (bRegister) 



{ 



CATiD__Control ) 



CreateComponentCategory ( CATID Control, 

L''Controls» ) 
RegisterCLSIDInCategory ( ra_clsid. 



Cre a teComponent Category { 
CATID^SafeForlnitializing, 

L"Controls safely initializable from persistent 

data" ); 

RegisterCLSlDInCategory ( m_clsid, 
CATID_SafeForInitiaiizing ) ; 

CreateComponentCategory ( 
CATlD__SafeForScripting, 

L"Controls that are safely acriptable" ) / 

RegisterCLSlDInCategory ( m_clsid r 
CATID^SafeForScripting ) ; 

CreateComponentCategory ( 
CATID_PersistsToPropertyBag, 

L"Support initialize via PersistPropertyBag" )/ 
RegisterCLSlDInCategory ( jn_clflid, 
CATI 0_Pe rs i s t sTo Proper tyBag ) 

return Af xOleRegisterControlClaBB { 
AfxGetlnstanceHandleO , 
m^elsid, 
m_lpszProgID, 
I DS_DYN AM I CCONTROL , 
I DB_D YN AM I CCONTROL , 
afxReglnsertable ( 

afxRegApartmentThreading, 

dwDynamicConfcroIOleMisc, 
_tlid, 
IwVer Major. 

wVerMinor) ; 

} 

else 
{ 

UnregiaterCLSIDInCategory ( m_clsid, 

CAT3D_Control } 

UnregiaterCLSIDInCategory < m^clsid, 
CATlD^PersistsToPropertyBag j ; 

1/nregisterCLSlDInCategory C m_clsid, 
CATID_SafeForScripting >; 

UnregisterCLSIDInCategory ( m clsid, 
CATID_SafeForInitializing ); 

return AfxOleUnregisterClass (ra_clsid, 

m_ipszProgID) ; 

) 

) 

/////////////////////////////////////////////////////////// 
// CDynamicControlCtrl » i CDynamicControlCtrl - Constructor 

CDynamicControlCtrl t t CDynamicControlCtrl ( ) 
{ 

InitializellDs (&IID_DDynamlcControl , 
RIID^DDynamicControlEvents) ; 

// TODOj Initialise your control's instance data 

here. 

FeelSetup ( AfxGetlnstanceHandle (> , 
AfxGetMain«nd() hWnd ); 
} 

//////////////////////////'//////////////////////////////// 
// CDynamicControlCtrl t i -CDynamicControlCtrl - Destructor 

CDynamicControlCtrl s » -CDynamicControlCtrl () 
{ 

// TODO: Cleanup your control's instance data 

here. 

FeelCleanupO ; 

) 

mm/m/ii/i/m//m///////////////m//////////////// 

II CDynamicControlCtrl i t OnDraw - Drawing function 
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void CDynamicControlCtrli iOnDraw( 

CDC* pdc, const CRectfi. rcBounds. const 

CRect& rclnvalid) 
f 

// TODOi Replace the following code with your own 
drawing code. 

pdc- >FillRect (rcBounds, 
CBrushi j FromHandle ( (HBRUSH) GetStockObject (WiUTE_BRUSH) ) ) ; 

pdc- >Ellipse (resounds) ; 

} 

/////////////////////////////////////////////////////////// 
// CDynaroicControlCtrl i tDoPropExchange - Persistence support 

void CDynamieControlCtrlt iDoPropExchange(CPropExchange* pPX) 
{ 

ExchangeVersion (pPX, MAKELONG (_wVerMinor , 
_wVerMajor)) ; 

COleCcmtrol t tOoPropExchange(pPX) ; 

// TODOi Call PX_ functions for each persistent 
custom property. 

) 

/////////////////////////////////////////////////////////// 

// CDynamicControlCtrlt iGetControlFlags - 

// Flags to customize MFC's implementation of ActiveX 

controls. 

// 

// For information on UBing these flags, please see MFC 
technical note 

// ftnnn, "Optimizing an ActiveX Control". 
DWORD CDynamicControlCtrl i *GetControlFlags { > 
( 

DWORD dwFlagS ■» COleControl i tGetControlFlags () ; 



// The control can activate without creating a 

window. 

// TODOi when writing the control's message 
handlers, avoid using 

// the mJiWnd member variable without first 

checking that its value ia non-NULL. 

dwFlage |« windowleseActivate; 

return dwFlags; 

} 

//////// ////// ///////////////////////////////////////////// 
II CDynamicControlCtclt iGnResetState - Reset control to 
default state 

void CDynamicControlCtrli »OnResetState() 
{ 

COleControl nOnResetState {} ; // Resets defaults 
, found in DoPropExchange 

// TODO: Reset any other control state here. 

} 

/////////////////////////////////////////////////////////// 
// CDynamicControlCtrli lAboutBox - Display an "About" box to 
the user 

void CDynamicControlCtrli iAboutBox() 
{ 

CDialog dlgAbout(IDD ABOUTBOX_DYNAMICCONTROL) / 
d IgAbout . DoHoda 1 { } ; 



/////////////////////////////////////////////////////////// 
// CDynamicControlCtrl message handlers 

long CDynamieControlCtrlt lApplyForce (long Xdir, long Ydir, 
long Mag) 

return FeelBeginForce ( Xdir, Ydir, Mag ); 

i 

long CDynamicControlCtrli jEndForceO 
( 

return FeelEndForceO ; 



HRESULT CreateComponentCategory< CATID catid, WCHAR* 

catDeacription ) 

( 

ICatRegister* per « NULL; 

IJ RESULT hr « S_OK; 

// Create an instance of the category manager 

hr " CoCreatelnstance ( 

CLSIDjStdComponentCategoriesMgr, 

NULL. 

CtiSCTX_INPROC_SERVER, 
I lD_JtCatRegister, 
(void**) £pcr 
J i 

it ( FAILED (hr) ) 

return hr; 

CATEGOR If I N FO cat info ; 
eatinfo.catid « catid; 

catinfo.lcid « 0x0409,- // English locale ro in hex 



Docket No. IMMIP062 



lnt len « wcslen{ catDescription ); 

wesncpyt catinfo.szDeecription. catDescription, 

len ); 

catinfo.BzDescription(len) = '\0'? 

hr » pcr->RegisterCategories< 1, icatinfo )/ 

pcr->Release 0 i 

return hr; 

} 

HRESULT RegisterCLSIDInCategory (REFCLSID claid, catid catid) 
f 

ICatRegister* per » NULL; 
HRESULT hr m S_OK; 

// Create an instance of the category manager 
hr * CoCreatelnstance ( 

CLSID_StdComponentCategoriesMgr, 

NULL, 

CLSCTX__I NPROC_S ERVER , 
IlD^lcatRegiBter, 
(void**) &pcr 

>i 

if { SUCCEEDED (hr) ) 
( 

CATID rgeatid (1] ; 
rgcatid[0J = catid; 

hr ■ pcr->RegisterClassImplCategories( 

clsid, 1, rgeatid ) ,• 
} 

i£ ( per 1= NULL ) 

per- >Re lease (J ; 

return hr; 

} 

HRESULT UnregisterCLSIDlnCategory( REFCLSID clsid, CATID 

catid ) 

( 

ICatRegister* per « NULL; 
HRESULT hr * SJ3K; 

// Create an instance of the category manager 
hr * CoCreatelnstance! 

CLSID StdCoinponentCategoriesMgr, 

NULL, ~ 

CLSCTX_INPROC SERVER, 

IID_ICatRegister, 

(void**)&pcr 

); 

if (SUCCEEDED(hr) ) 

CATID rgeatid 111 ; 
rgcatid(0] - catid? 

hr « pcr->UnRegieterClaBS ImplCategories( 

clsid, 1, rgeatid ) ; 
) 

if ( per !» NULL ) 

pcr->Release () / 

return hr; 

} 

long CDynamieControlCtrlt tStartBallO 
{ 

return FeelBeginBall <) ; 

1 

long CDynamicControlCtrli >EndBall() 
I 

return FeelBndBall { ) ; 

long CDynamieControlCtrlt ;ChangeBallPos {long leftVal, long 

topVal) 

{ 

return FeelChangeBallLocation( leftVal, topVal ) f 

} 

long CDynamicControlCtrl* *StartSpring< long topVal) 
{ 

return FeelBeginSpring ( topVal ) 

long CDynamicControlCtrli :EndSpring() 
( 

return PeelEndSpring ( ) ; 

long CDynamieControlCtrlt tStartNerf <) 
{ 

return FeelBeginMerf () ; 

} 

long CDynamicControlCtrli :EndNerf () 
( 

return FeelEndHerf ( ) ; 

long CDynamicControlCtrli tChangeNerf Rect (long left, long 
top, long width, long height) 

return FeelChangeNerf Rect ( left, top, width, 

height ); 
} 

long CDynamicControlCtrl * tSetSpringK (long theK) 
{ 

return FeelSetSpring ( theK ),- 

} 

long CDynamieControlCtrlt t Pop () 
{ 

return FeelPopO ; 

} 
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DynamicControlPpg.h 

H if 

I def inedH AFX_DYNAMICCONTROL»PPG_H EC296EF6_836CJL1D1_AB68_00 

60083A2742 INCLUDED ) 

BdeElne 

AFX DYNAMICCONTROLPPGJt_EC296EF6_836C_llDl_A86BJ)O6OO03A274 

ffif _MSCVER >• 1000 

II pragma once 

ttendif // _MSC_VER >« 1000 

// DynamicControlPpg.h i Declaration of the 
CDynamicControlPropPage property page class. 

////////////////////////////////////////////////////////// 
// CDynamicControlPropPage : See DynamicCantrolPpg , cpp .cpp 
for implementation. 

class CDynamicControlPropPage * public COlePropertyPage 
{ 

DEC LARE_DYNCRB ATE (CDynamicControlPropPage) 
DECLARE_OLECRBATE_EX (CDynamicControlPropPage) 

// Constructor 
public* 

CDynamicControlPropPage () ; 

// Dialog Data 

// { {APX DATA (CDynamicControlPropPage) 

enuin { TDD « IDD_PROPPAGE_DYNAMICCONTROL }: 

// NOTE - ClassWizard will add data 

members here. 

/ / ) } AFX_JDATA 

// Implementation 
protected! 

virtual void DoDa t a Ex change (CDat a Exchange* pDX) ; 
// DDX/DDV support 

// Message maps 
protected: 

// { { AFX_MSG (CDynamicControlPropPage) 

// NOTE - ClassWizard will add and 
remove member functions here. 

// DO NOT EDIT what you see in these 
blocks of generated code J 
//)}APX_MSG 
DECLARE^KESSAGB^MAP ( ) 

>l 

// ( { AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional 
declarations Immediately before the previous line, 
flendif // 

I defined (AFX_DYNAM I CCONTROLPPG_H EC2 96 EP6_8 3 6C_11D1_A86 8_0 0 

600B3A2742 INCLUDED) 



DynamicControlPpg.cpp 

// DynamicControlPpg.cpp » Implementation of the 
CDynamicControlPropPage property page class. 

ttinclude "sUdafx.h" 
{(include "DynamicControl -h" 
f{ include "DynamicControlPpg.h'' 

tUEdef DEBUG 
Hde£ine~new DEBUG NEW 
ttundef THIS_FILE 

static char~THIS FILE [] » FILE ; 

Aendif 

I MPLBME NT_DYNCREATE ( CDynami cControlPropPage , 
COlePropertyPage ) 

//'//////////////////////////////////////////////////////// 
// Message map 

BEGIN_MESSAGB_MAP ( CDy nam icControiPcop Page, COlePropertyPage) 
//{ {AFX_MSG_MAP (CDynamicControlPropPage) 
// NOTE*"- ClassWizard will add and remove message 

map entries 

// DO NOT EDIT what you see in these blocks of 
generated code 1 

//}}AFX_MSG_MAP 
END_MESSAGE _MAP ( ) 



////////////////////////////////////////////////////////// 
// Initialize class factory and guid 

1MPLEMENT_0LECREATE_BX (CDynamicControlPropPage,, 
"DYNAMICCONTROL.DynamicControlPropPage . 1" , 

0xec296ee7, 0x836c. Oxlldl, 0xa8, 0x68, o, 0x60, 
0x8, 0x3a, 0x27, 0x42) 
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///////////////////////////////////////////////////////// 
// 

CDynamicControlPropPage* iCDynamicControlPropPagepactory i tUpd 
ateRegistry - 

// Adda or removes system registry entries for 
CDy n ami cCon trolPropPage 

BOOL 

CDynamicControlPropPage* iCDynamicCont KolPropPageFacfcory * *Upd 

ateRegistry (BOOL bRegister) 

{ 

if (bRegister) 

return 

AfxOleRegisterPropertyPageClassfAfxGeUnstanceHandleO, 
m^clsid, 

IDS_DYNAMICCONTROL_PPG) ; 
else 

return AfxQleUnregisterClass {m_clsid, 

NULL) ; 

} 

/////////////////////////////////////////////////////////// 
// CDynamicControlPropPage.* iCDynamicC6ntrolPrDpPage - 
Constructor 

CDynamicControl PropPage * « CDynamicControlPropPage ( ) t 

COlePropertyPage (IDD, 
IDS DYNAMI CCONTROL PPG CAPTION) 
{ 

// { {AFX_DATA_I NIT (CDynamicControlPropPage) 

// NOTE i ClassWizard will add member 
initialization here 

// DO HOT EDIT what you see in these blocks o£ 
generated code 1 

//)}AFX_DATA_1NIT 

} 

/////////////////////////////////////////////////////////// 
// CDynamicControlPropPage* t DoDa taExchange - Moves data 
between page and properties 

void CDynamicControlPropPage* * DoDataExchange (CDataExchange* 
pDX) 

// { { AFX_DATA_MAP (CDynamicControlPropPage) 

// NOTE* ClassWizard will add DDP, DDX, and DDV 

calls here 

// DO NOT EDIT what you see in these blocks of 
generated code 1 

//)) AFX_DATA_MAP 

DDP Postprocessing (pDX) ; 

} 

////////////////////////////////////////////////// 
// CDynamicControlPropPage message handlers 



DynamicForces.h 

f ******** A,****************************************** ******* 

* FeelControl 

* (c) 1997 Immersion Corporation 

* FILE 

* FeelForces.h 
* DESCRIPTION 

* Ptovide methods for doing force- feedback with the 
ForceClasse3, giving the FeelControl some guts... 

*/ 

# i £ ndef FEELFORCES_H 

fVdefine FEELFORCESJI 

BOOL FeelSetup( H INSTANCE hlnst, HWND hWnd ); 
BOOL FeelCleanup( void )? 

long FeelBeginForce( long Xdir, long Ydir, long Hag ); 
long FeelEndForce I void ) ; 

long FeelBeginBall ( void ); 
long FeelEndBalK void ); 

long FeelChangeBallLocation( long leEt, long top ); 

long FeelBeginSprlng( long top ); 

long FeelEndSpring{ void ); 

long FeelSetSpring( long springK ) 

long FeelBeginNerf ( void ) .* 
long FeelEndNerf ( void ) ,- 

long FeelChangeNerfRect ( long left, long top, long width, 
long height ) ; 

loncf FeelPop( void ); 

« end if FEELFORCESJI 



DynamicForces.cpp 

/A*****************************************-***********'****** 

* FeelControl 

* (c) 1997-1998 Immersion Corporation 



* FILE 

* FeelForcea .cpp 

* DESCRIPTION 

* Provide methods for doing force -feedback 
with the ForceClasaea. yiving the DynamicControi some 

gutB . . . 
*/ 

(Unclude "Btdafx.h" 
flinclude "DynamicForces -h" 
ijinclude •ForceFeelitMouae .h" 
}| include " ForceBf £ ect . h* 
# include 11 ForcePer iodic, h" 
!f include "ForceDamper .h" 
^include "ForceEllipse .h" 
Ifinclude "ForceCondition.h" 
flinclude "ForceConBtant .h" 
M include w ForceEnclosure,h K 
flinclude «ForceSpring .h" 
II include <stdio.h> 



// GLOBAL VARIABLES 

CForceFeelitMouae* gMouse 

CForceConatant* 

CForceEllipse* 

CForceSpring* 

CForcePeriodic* 

CForcePeriodic* 

CForceEllipse* 



* Globals for our parama 
*/ 

// Balll.gif 1b 100x100 
Kdefine BALL^IMAGE HEIGHT 
If define B ALL^I M AGE~W I DTH 
J} define BALL_WALL_WIDTH 
ff define BALL__STI FFNESS 

JJ define NBRF_ I MAGE Jt EIGHT 
ft define NERF_JMAGE_WIDTH 
#define NERF_WALL_WIDTH 
ffdefine NERF_STIFFBESS 



* NULL; 

gForce 

gBall 

gSpring 

gPopl 

gPop2 

gNerf 



100 
100 



m NULL; 
= NULL; 
NULL; 
= NULL; 
* NULL; 
- NULL; 



100 
100 



// Updown pop 
lldefine POPl_DURATION 
^define P0P1_period 
tfdefine P0P1_MAGNITUDE 

const POINT POPl_DIRECTION * { Q, 1 ) t 

fl Le£t right pop 
II define POP2 DURATION 
« define P0P2J?ERIOD 
fide fine P0P2_MAGNITUDE 

const POINT POP2_DIRECTION « { 1, 1 }; 



(BALL_IMAGE_WIDTH/ 4 ) 
(8000} 



(NERF_IMAGE_WIDTK/4) 
(8000) 



300 
468 
10000 



3 00 
242 
4000 



BOOL FeelSetUp( H INSTANCE hlnst, HVfND hWnd ) 
( 

BOOL success; 

RECT bailRect « { o ( o ( ball_image_height, 

BALL_IMAGE_WIDTH }; 

RECT nerfRect « {0, 0, NERF^IMAGE^EIGHT, 

NERF_IMAGE_WIDTH }; 

// Set up the Mouse 

gMouse » new CForceFeelitMouae ( ) ; 

if ( l gMouse ) goto FS_Err; 

succeos ■ gMouse->Initialize( hlnsb, hWnd >; 

if ( ! success ) goto FS_Err f 

// Set up the Force 

gForce » new CForceConatant ( \ / 

if { ! gForce > goto FS_Err; 

success - gForce- initialize (gMouae) ; 

if ( ♦ success ) goto FS_Erx; 

// Set up the Ball 
gBall « new CForceEllipse () ; 
i£ ( ! gBall J goto FS_Err; 
success « gBall-?. rnitialize( 

gMouae, 

SballRect, 

BALLAST I FFNESS, 
// FORCE_ELLIPSE_DEFAULT_STIFFNESS , 

BALL WALL_ W I DTH , 

FOR CE_ELL IPSE__DE FAULT_S ATURAT ION , 
FEELIT_FSTIFF OUTBOUNDANYWALL , 
FORCE_ELLI PSE~DBFAULT_CLI PP ING_MASK, 
NULL 

); 

IE ( ! success ) goto FSJBrr; 

// Set up the Spring 
gSpring » new CForceSpring U ? 
if ( ! gSpring > goto FS_Err; 
success = gSpring- initialize ( 

gMouse, 

30000, 

// FORCE_SPRIHG_DBFAULT STIFFNESS, 

FORCEPS PR I NG_DEFAULT_S ATU RAT ION , 
0, 

// PORCE_S PR I NG_DE FAULTED EADB AND , 
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FORCE fi! FF E CT_AX I S_Y , 

F0RCE~SPR I NG_DEFAULT_CENTER_PO INT 

); 

if ( ! success ) goto FS_Err ; 

// Set up the Nerf 
gNerf = new CForceEllipse O ; 
if ( I gNerf ) goto FS_Err f 
success » gWerE->Initialize( 

gMouse, 
fcnerfRect, 
-NERF_STIFFNESS, 
//FORCE_ELLIPSB_DEFAULT_STI FFNESS, 
NERF^WADLJilDTH, 

FORCE J3LLI PSB_DEFAULT_SATURATI ON , 
F EEL I T FST I FF__OUTBO UNDAN YWALL , 
FORCE_ELLIPSE_DEFAULT_CLIPPING_MASK, 
NULL - 

)t 

if ( l success > goto FS_Err; 
// Set up the PopSl 

gPopl » new CForcePeriodic (GU1D — Feelit^Square) ; 
if { ! gPopl ) goto FS_Brr; 
success « gPopl->Initialize { 
gMouse, 

POP2J4AGNITUDE, 

POP2_PERIOD, 

POP2_DURAT!ON, 

POP2J3IRECTION.X, 

POP2~DIRBCTION.y, 

force_per i od i c_default_of fs et , 
force""periodic~default_phase 

)t ~ 

if ( 1 success ) goto FS_Err ; 
// Set up the Pop82 

gPop2 « new CForcePeriodic (GUID_Fe el it_Square> ; 
if ( } gPop2 ) goto FS_Err; 
success » gPop2->Initialize( 
gMouse, 

POP2J4AGNITUDE, 
POP2J?ERIOD, 
POP2_DURATION , 

POP2_DIRECTION.x, 

POP2J>IRECTION . y , 
FORCE_PER IOD1 C_DE FAULTjOFFSET, 
FORCE PER I 0 D I C_DEFAULT_PHAS E 
); ~~ 

if < ! success ) goto FSjErr; 

// We're okay I 
return TRUE; 

FS_Err i 

// There were some problems... let's cleanup and 
declare ourBelves dead I 
FeelCleanupO ; 
return FALSE; 

} 

BOOL FeelCleanup{ void ) 

if ( gForce ) 
gForce; gForce » NULL; ) 

if ( gBall ) { gBall- >Stop<>; 
gBall; gBall = NULL; } 

if ( gSpring ) { gSpring ->S top () ; 

gSpring; gSpring » NULL; } 

if ( gNerf ) { gNerf ->Stop O ; 
gNerf; gNerf « NULL; } 



{ gForce ->S top <) ; delete 
delete 



delete 
delete 



} 



if { gPopl ) 

delete gPopl; gPopl 
if ( gPop2 ) 

delete gPop2; gPop2 

if ( gMouse ) { 

delete gMouse; 
return TRUE; 



[ gPopl- >StOp{) ; 
» NULL; } 
{ gPap2->StopO ; 
» NULL; } 

gMouse « NULL; } 



void FeelEndAllEffects ( void ) 



( gForce J 

( gBall ) 

( gSpring J 

{ gNerf ) 
{ gPopl 
( gPop2 



} 

long FeelBeginBall ( void ) 



gForce ->Stop() ? 
gBall ->Stop() ; 
gSpring- >S top ( } ; 
gNerf -j>Stop() ; 
) gPopl->Stop{J ; 

} gPop2->Stop (J ; 



if ( gBall ) 

{ return gBall->Start 0 ; 
} 

return 0; 



long FeelEndBalK void } 
{ 

if ( gBall ) 

return gBall->Stop ( ) ; 

return 0; 
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} 

long FeelChangeBallLocation< long left, long top } 
{ 

if { gBall ) 
( 

RECT rj 

r.top » top; 
r.left » left? 

r. right - left + BALIj_IMAGE_WIDTH f 
r. bottom « top + BALL_IMAGE_HEIGNT; 
return gBall->SetRect< &r >,- 

} 

return 0; 

) 

long FeelBeginForce{ long Xdir, long Ydir, long Mag ) 
{ 

if ( gForce ) 
{ 

i gForce->ChangeParameters< 
Xdir, 

Ydir, 

FORCE_E FF£CT__DONT_CHANGE , 

Hag 

>; 

return gForce->Start () ; 



} 

return 0; 



} 



long FeelEndForce ( void ) 



{ 



if { gForce > 

return gForce->Stop{) ; 

return 0; 



} 

long FeelBeginSpring{ long top } 
{ 

if ( gSpring ) 



{ 



POINT pt « {0,top}; 
gSpring- >ChangeParameters ( 
pt 

) * 

return gSpring->Start() ; 



} 



long FeelEndSpring( void ) 



i 



) 



it ( gSpring } 

return gSpring->Stop () ; 

return 0; 



long FeelSetSpring ( long springK ) 



{ 



if ( gSpring ) 

return gSpring- >Change Parameter a { 

FO RCE_E FFECT_DONT_CHANG E_PO I NT . 

springK, 

force effect_dont_change, 
force~effect_dont_change , 
force~effect~dont_cka*jge 



} 



long FeelBeginNerf { void ) 



{ 



} 



if ( gWerf ) 

{ return gNerf->Start (J ; 
} 

return 0/ 



long FeelEndNerf ( void ) 
{ 

if ( gNerf ) 

return gNerf- >Stop O ; 

return 0; 

J 

long FeelChangeNerf Rect { long left, long top, long width, 
long height ) 



if ( gNerf ) 



RECT n 

r.top » top; 

r.left « left; 

r. right =» left + width; 

r. bottom * top + height; 

return gNerf- >SetRect ( &r }; 



return 0; 



} 

long FeelPopi void ) 
{ 

if { gPopi ) 

gPopl->Start{) ; 
if ( gPop2 ) 

gPop2- >StartU ; 

return l f 

) 



Resource.h 

// ( {N0J3EPENDENCIES} ) 

// Microsoft Visual C++ generated include file. 

// Used by DynamicControl. rc 

// 

if define IDS_DYNAMICCONTROL I 

ffdefine IDSJ3YNAMICCONTROL_PPG 2 

^define IDSJ3YNAMICCONTROL_PPG_CAPTION 200 

ft define IDD_PR0PPAGE__DYNAHICCONTR0L 200 

^define IDD_ABOUTBOX_DYNAHICCONTROL 1 

^define I DB_DYNAM I CCONTROL 1 

#define IDl_ABOUTDLL 1 

^define APS_NEXT_RESOURCE_VALUE 201 

B define ~APS NEXT_C0NTR0 L_ VALUE 201 

^define APS*~NEXT_S YM E D_VA1<U E 101 

^define ^APS~NEXT_COMHAND_VALUE 32768 



StdAfx.h 

tfif 

ldefined{AFX_STDAFX_H EC296EEA_836CJ11D1J\B68_0060083A2742_ 

_INCLUDED_) 
Hdefine 

AFX_STDAFXJi__EC2 96EEA_8 36C_UD1_A868_00 600B 3 A2742_„IWCL.UDED 



tfif _MSC_VER >« 1000 
ffpragma once 

ttendif // _MSC_VER >= 1000 

// stdafx.h t include file for standard system include 
files, 

// or project specific include files that are used 

frequently, 

// but are changed infrequently 



If define VC_EXTRALEAN 
Windows headers 



^include <a£xctl.h> 
Controls 



// Exclude rarely-used stuff from 
// HFC support for ActiveX 



// Delete the two includes below if you do not wish to use 
the MFC 

// database classes 

^include <a£xdb.h> // HFC database 

classes 

^include <afxdao.h> // MFC DAO database 

classes 

// { {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional 
declarations immediately before the previous line. 

Hendif // 

« defined (AFXJ5TDAFX__H_EC2 96EEA_S36CJL1D1_A8 68_0060083A2742_ 
rNCl,UDED_) 



StdAfx.cpp 

// stdafx.cpp j source file that includes just the standard 
includes 

// stdafx.pch will be the pre- compiled header 

// stdafx.obj will contain the pre-compiled type information 

ttinclude "stdafx.h" 



Docket No. IMMIP062 



-88- 



United States Patent & Trademark Office 

Office of Initial Patent Examination ~ Scanning Division 




Application deficiencies found during scanning: 



□ Page(s)__ 
for scanning. 



of 



(Document title) 



were not present 



□ Page(s)_ 
for scanning. 



of 



(Document title) 



were not present 



□ Scanned copy is best available. f^JJt 



